使用VBA操作表的几段代码

excelperfect

标签：VBA，表

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

创建表：

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单元格区域。

Sub RemoveTable()

    Sheet1.ListObjects(1).Unlist

End Sub

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

Sub RemoveTableandFormat()

    ActiveSheet.ListObjects('DataTable').Unlist

    [A1].CurrentRegion.ClearFormats

End Sub

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

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

Sub TableName()

    Dim strName As String

    strName = Sheet1.ListObjects(1).Name

End Sub

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

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。