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

Question

我目前有一个将文本导入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