[已解决]請幫忙修改移動單元格的代買

010203400

1. Range("B1").Select: Selection.End(xlToRight).Select: Range("RC[1]").Select

复制代码

如上面的代碼，先選中B1，然后移動到最右邊 有內容的單元格，

然后再向右移到一次，我用了 Range("RC[1]").Select ，但提示出錯，請幫忙修改。

最佳答案

月排行榜 / 总排行榜

redsheep

2013-9-2 12:29

如果只是选中右边的那个格  可以在 range()和select之间加一个offset   例如   range(**).offset(0,1).select
你要是前面已经选中了的话  还可以这样  Selection.Offset(0, 1).Select

跳转到最佳答案楼层

JLxiangwei

Sub test()
    Dim col&
    col = Cells(1, 2).End(xlToRight).Column
    Cells(1, 2).Select
    Cells(1, col).Select
    Cells(2, col).Select
End Sub

redsheep

如果只是选中右边的那个格  可以在 range()和select之间加一个offset   例如   range(**).offset(0,1).select
你要是前面已经选中了的话  还可以这样  Selection.Offset(0, 1).Select