将Excel选择移动到第一列（偏移？）

Posted 2021-04-03

如何将当前选择移动到保留相同行的工作表的第一列。示例 - 当前选择 - 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