Question

我想使用宏来命名数据表，以便我可以使用该名称在我的宏中稍后创建数据透视表。每次使用此宏时行数都会改变，因此我需要找到一个可以识别最后一行的数据，并从第4行到最后一行数据中获取A，B，C和D列中的所有数据。我的代码如下所示，我在最后一行收到错误消息。任何帮助将不胜感激。

Sub Macro22()

Dim Lastrow As Long

Sheets("Statement").Select
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

ActiveWorkbook.Names.Add Name:="VendorData", RefersToR1C1:= _
    "=Statement!A5:C" & Lastrow
ActiveWorkbook.Names("VendorData").Comment = ""

End Sub

Answer 1

您要将评论设为“”还是删除评论？请包含下次收到的错误消息。

删除：

If Not (ActiveWorkbook.Names("VendorData").Comment is Nothing) then ActiveWorkbook.Names("VendorData").Delete

添加/修改评论文本：

ActiveWorkbook.Names("VendorData").Comment.Text ""

VBA：使用宏命名数据表

1 个答案: