将数据从一行转移到列

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