我想在电子表格中选择最后一列和第二列。
我找到了我的最后一栏:
LastColumn = Sheets("Sheet1").Cells.Find("*", [a1], , , xlByColumns, xlPrevious).Column
On Error GoTo 0
然后我尝试使用LastColumn从最后一列到最后一列进行选择并复制和粘贴。
Sheets("Sheet1").Columns(LastColumn - 1:LastColumn).Select
但它似乎不起作用。有人可以帮忙,也可以解决我的错误。
由于
答案 0 :(得分:1)
Sheets("Sheet1").Columns(LastColumn - 1).Select
编辑:感谢Doug指出我的错误......
Sheets("Sheet1").Columns(LastColumn - 1).Resize(,2).Select