vba - 使用 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成一张 table 。看看是否可以根据需要进行修改。

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