如何将当前选择移动到保留相同行的工作表的第一列。示例 - 当前选择 - D3,D4,D6选择移至A3,A4,A6(当前选择的列将更改,与D不同)
Selection.Offset(x, x).Select
我可以使用选择偏移吗?
如果你想用Offset
这样做,你可以这样做:
Sub test()
Dim x As Long
x = Selection.Column
Selection.Offset(0, -x + 1).Select
End Sub
x是当前选择的列,将此列的列取出以转到第一列。
你也许可以这样做吗?以宏形式切割和插入。用您的选择替换字符串。
Columns("B").Cut
Columns("F").Insert Shift:=xlToRight