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

【问题标题】：How to Move All Active Cells to the First Column如何将所有活动单元格移动到第一列
【发布时间】：2023-03-21 15:55:02
【问题描述】：

我目前有一个将文本导入 Excel 的宏。我的问题是文本在所有不同的列中。每列只有一个单元格，我的理想状态是将所有单元格移到 A 列。提前致谢！

【问题讨论】：

【解决方案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

【讨论】：

谢谢！现在这对我有用。欣赏！
很高兴我能帮上忙 :)
如果单元格以等号开头，这似乎会中断。您对如何解决此问题有任何想法吗？