excel - 相当于 Ctrl + Shift + End 的 VBA 脚本

Question

晚上好。我在下面的代码中遇到问题。宏突然停在那条线上。有人知道似乎是什么问题吗？

OpenBook.Sheets(1).Range("A1").ActiveCell.SpecialCells(xlLastCell).Copy

标签： excelvba

Answer 1

该Range对象没有ActiveCell属性。它应该只是：

OpenBook.Sheets(1).Range("A1").SpecialCells(xlLastCell).Copy