使用现有的数据通过VBA创build一个表,使用CURRENTREGION函数
所以我是创build我的第一个macros大项目的90%的方式。 感谢所有人的帮助! 但是我提出了一个问题 – 我认为这个问题应该是我在使用macros之前应该面对的最后一个问题。
我写了一个macros,它复制主电子表格中显示的数据,在目标位置创build一个新的工作簿,然后使用提供的信息创build一个表。
我想要做的是使用CurrentRegion
来允许数据改变每月。 我认为代码应该是这样的
`GeneratePivotTables Macro 'Converts information stored on sheet "Data" to a table Dim TABLE As Range Set TABLE = Sheets("Data").A1.CurrentRegion Sheets("Data").Listobjects.Add(x1SrcRange, Range("TABLE"), ,1Xyes).Name="Data"
我知道这是呈现不正确的,但我想一些帮助只是正确parsing这个! 我的目标是然后能够使用表“数据”来创build数据透视表。
下面的代码将单元格A1
的CurrentRegion
转换为一个表。 看看你是否可以根据你的需要修改它。
Sub ConvertRangetoTable() Dim rngTable As Range Set rngTable = Sheets("Data").Range("A1").CurrentRegion Sheets("Data").ListObjects.Add(xlSrcRange, rngTable, , xlYes).Name = "All_Data" End Sub
这似乎是足够的
Sub M_snb() Sheet1.ListObjects.Add(1, [A1].CurrentRegion, , 1).Name = "snb_001" End Sub