使用VBA操作表的几段代码

标签：VBA，表

在Excel中，有时候你可能希望在VBA代码的帮助下动态创建表，然后在该表中进行更多的数据操作。下面是几段代码。

创建表：

代码语言：javascript复制

Sub NewTable()
    Dim objList As ListObject
    Dim strTable As String
    strTable = "DataTable"
    Set objList = ActiveSheet.ListObjects.Add(xlSrcRange, [A1].CurrentRegion, , xlYes)
    objList.Name = strTable
End Sub

有时候可能更复杂，有可能是用户已经创建了一个表，因此需要测试该表，在这种情况下，所需代码变得更复杂。下面的过程将删除表，但保留表的格式，使其看起来像一个表，但执行起来像正常的Excel单元格区域。

代码语言：javascript复制

Sub RemoveTable()
    Sheet1.ListObjects(1).Unlist
End Sub

下面的代码删除表和表的格式，因此就像一个包含常规数据的工作表。

代码语言：javascript复制

Sub RemoveTableandFormat()
    ActiveSheet.ListObjects("DataTable").Unlist
    [A1].CurrentRegion.ClearFormats
End Sub

上述过程中的ListObjects(1)假设工作表Sheet1中有一个表。

如果试图捕获表名，下面的方法可能会派上用场。创建表后使用表名有助于以后引用表。

代码语言：javascript复制

Sub TableName()
    Dim strName As String
     strName = Sheet1.ListObjects(1).Name
End Sub

注：本文学习整理自thesmallman.com，供有兴趣的朋友参考。

vba

0 人点赞