在Excel宏中记录复制和粘贴后，当宏运行时，它会在粘贴时停止并出现错误

Question

我的解决方法是在运行宏之前，让字符串已经出现在所有列的底部。

宏行为：

Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Range("B5").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.Paste

错误弹出窗口显示：Microsoft Visual Basic运行时错误"1004"：无法将其粘贴到此处，因为"复制"区域和"粘贴"区域的大小不相同。在粘贴区域中只选择一个单元格或大小相同的区域，然后再次尝试粘贴。

Answer 1

这应该可以做到：

Application.Intersect(ActiveSheet.UsedRange, Columns("A:A")).Select
Application.CutCopyMode = False
Selection.Copy
Range("B5").Select
ActiveSheet.Paste

或者，这个较短版本的

Application.Intersect(ActiveSheet.UsedRange, Columns("A:A")).Copy Range("B5")