Question

所以我90％的方式来创建我的第一个大宏项目。感谢大家的帮助！然而，我遇到了一个问题 - 我认为这应该是在使用宏之前应该面对的最后一个问题。

我编写了一个宏来复制主电子表格中显示的数据，在目标位置创建一个新工作簿，然后使用提供的信息创建一个表。

我想要做的是使用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"

我知道这是不正确的，但我想要一些帮助，只需正确解析这个！我的目标是能够使用表格＆＃34;数据＆＃34;创建数据透视表。

Answer 1

以下代码将CurrentRegion在单元格A1周围转换为表格。看看你是否可以根据需要修改它。

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

Answer 2

这似乎已足够

Sub M_snb()
    Sheet1.ListObjects.Add(1, [A1].CurrentRegion, , 1).Name = "snb_001"
End Sub

使用CURRENTREGION函数通过VBA使用现有数据创建表

2 个答案: