VBA代码转置特定的非数字数据（列到行）？

Question

我正在尝试在vba上编码（第二天），我很难找到一个可以将A列的非数字数据（名称，代码，助记符）转换为第1行的代码第一个股票Fortnox（和下一个1712股票）以及将第1列的每个股票的价格复制到相应的列，就像你在图片中看到的那样..

通过查看这些图片，您可以弄清楚我在问什么！在此先感谢您的帮助

Answer 1

从最慢和最简单到最快和最有效：

选项1

Range("A125:A127").Copy
Range("C1").PasteSpecial Transpose:=True
'Extrapolate for other copies

选项2

Dim i As Integer
For i = 1 To 3
    Cells(2, i + 2).Value = Cells(i + 124, 2).Value
Next i

选项3是将范围的Value作为2D数组并交换索引，但我不是 花哨。