将Excel选择移动到第一列(偏移?)

将Excel选择移动到第一列(偏移?),excel,vba,Excel,Vba,如何将当前选择移动到保留相同行的图纸的第一列。 示例-当前选择-D3、D4、D6选择移动到A3、A4、A6(当前选择的列将更改,与D不同) 我可以使用选择偏移量吗?您可以这样做吗?宏形式的剪切和插入。用所选内容替换字符串 Columns("B").Cut Columns("F").Insert Shift:=xlToRight 你能不能这样做?宏形式的剪切和插入。用所选内容替换字符串 Columns("B").Cut Columns("F").Insert Shift:=xlToRight

如何将当前选择移动到保留相同行的图纸的第一列。 示例-当前选择-D3、D4、D6选择移动到A3、A4、A6(当前选择的列将更改,与D不同)


我可以使用选择偏移量吗?

您可以这样做吗?宏形式的剪切和插入。用所选内容替换字符串

Columns("B").Cut
Columns("F").Insert Shift:=xlToRight

你能不能这样做?宏形式的剪切和插入。用所选内容替换字符串

Columns("B").Cut
Columns("F").Insert Shift:=xlToRight

如果您想使用
Offset
执行此操作,您可以这样做:

Sub test()

Dim x As Long
x = Selection.Column
Selection.Offset(0, -x + 1).Select

End Sub

x是您当前选择的列,将此列的数量取出,转到第一列

如果您想使用
Offset
执行此操作,您可以这样做:

Sub test()

Dim x As Long
x = Selection.Column
Selection.Offset(0, -x + 1).Select

End Sub

x是您当前选择的列,将此列的数量取出,转到第一列

或者,寻找一个已回答的类似问题。我正在寻找一种在不更改数据的情况下进行选择的方法,@Pierre44的解决方案有效。或者,寻找一个已回答的类似问题。我正在寻找一种在不更改数据的情况下进行选择的方法,@Pierre44的解决方案有效。