如何将所有活动的单元格移动到第一列

我目前有一个macros，导入文本到Excel中。 我的问题是文本是在所有不同的列。 每列只有一个单元格填充，而我的理想状态会将所有单元格移动到列A.在此先感谢！

Answer 1

有更快，更好的方法来做你所需要的，但现在我认为这应该做你所需要的。

Dim cel As Range, rng As Range Dim wk As Worksheet Set wk=Sheet1 Set rng = wk.Usedrange For each cel in rng if cel.Value <> "" and cel.Column <> 1 then wk.Cells(cel.Row,1) = cel.Value cel.Value = "" End if Next cel