将数据从一行转移到列
问题描述:
我有一行数据,如下所示。将数据从一行转移到列
IBM RPA|Reading|ATC01789|ATC01790|C4966572|NT018258 etc.
我的问题是我如何将数据移动到如下所示?
IBM RPA|Reading|ATC01789
ATC01790
C4966572
NT018258
任何帮助将不胜感激。
感谢
答
你基本上是寻找Transponse,这样的事情:
Dim X() As Variant
Dim XT() As Variant
X = ActiveSheet.Range("RangeOfRow").Value2
XT = Application.Transpose(X)
ActiveSheet.Range("RangeOfColum").Value = XT
感谢你为这个。完美运作 –