将数据从一行转移到一列

我有一行数据如下所示。

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