如何将当前选择移到保留相同行的工作表的第一列。 示例-当前选择-D3,D4,D6选择移到了A3,A4,A6(当前选择的列将更改,并且与D不同)
Selection.Offset(x, x).Select
我可以使用选择偏移量吗?
答案 0 :(得分:2)
如果您想使用Offset
来做到这一点,可以这样做:
Sub test()
Dim x As Long
x = Selection.Column
Selection.Offset(0, -x + 1).Select
End Sub
x是您当前选择的列,请取出该列的数量转到第一列。
答案 1 :(得分:0)
您可以做这样的事情吗?剪切并以宏形式插入。用您的选择替换字符串。
Columns("B").Cut
Columns("F").Insert Shift:=xlToRight