将数据从一行移到一列中

Question

我有一行数据如下所示。

IBM RPA|Reading|ATC01789|ATC01790|C4966572|NT018258 etc.

我的问题是如何将数据移动到如下所示？

IBM RPA|Reading|ATC01789
                ATC01790
                C4966572
                NT018258

非常感谢任何帮助。

由于

Answer 1

你基本上都在寻找Transponse，就像这样：

Dim X() As Variant
Dim XT() As Variant
X = ActiveSheet.Range("RangeOfRow").Value2
XT = Application.Transpose(X)
ActiveSheet.Range("RangeOfColum").Value = XT