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

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"

我知道这是不正确的，但我需要一些帮助才能正确解析它！我的目标是然后能够使用表“数据”来创建数据透视表。

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