宏不起作用

Question

我不知道为什么我的宏不起作用。让我解释一下宏的作用：

如果用户在列R下面的任何单元格上键入任何值，将自动创建数据透视表，它将值“Ref＃”移动到行标签，然后从单元格A2移动到最后一个它将复制该信息和将其粘贴到另一个名为“导入文件”的工作表上。

问题是没有将信息从A2复制到带有数据的最后一个单元格。我相信错误是宏

的这一部分

ActiveSheet.Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Import File").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues

Answer 1

好的，我要尝试的第一件事是清理一些代码并摆脱xldown。

请替换

ActiveSheet.Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Import File").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues

使用这一行代码

Sheets("Import File").range("A1:A1").resize(Range("A" & Rows.Count).End(xlUp).Row,1) = Range("A" & Range("A" & Rows.Count).End(xlUp).Row)