Question

Excel宏循环转置

Sub aa()
For rw = 1 To Range("A65536").End(xlUp).Row
Range(Chr(66 + ((rw - 1) Mod 3)) & (Int((rw - 1) / 3) + 1)) = Range("A" & rw)
Next rw
End Sub
源数据放A列，运行此宏，会自动转到BCD三列，好了之后删除A列即可。
有疑问可以追问或者hi我一起研究。
思路其实不是转置，而是直接以3为步进挨个复制数据。
追问
谢谢谢谢~ 万分感激啊~ 运行出来了。~~

不过Range(Chr(66 + ((rw - 1) Mod 3)) & (Int((rw - 1) / 3) + 1)) = Range("A" & rw)
这句我不是很懂哎。~~
求赐教啊~~
追答
rw就是从1一直循环到A列最后一行，为当前行号
A列数据转置后
1-3 放第一行，4-6 放第二行 7-9放第三行
想到什么没？就是行号除3的商的整数部分。于是就有Int((rw - 1) / 3) + 1) 其中-1+1为微调，也可以写成Int(rw + 2) / 3) ，保证1-3结果为1
转置的时候A1在第一列，A2在第二列,A3在第三列，A4又到第一列，类推，那么很容易想到，这就是行号除3的余数部分。于是有((rw - 1) Mod 3) 其中-1也是微调。因为我们列号是ABC表示的，需要把数字转换成字母，就用chr()函数来获得，66是B。这样前一部分就是BCD循环，后一部分就是111222333。。。。
所以这句赋值号左右两部分看起来虽然长，但其实就是一个单元格赋值给另一个单元格
运行起来，rw=1 B1=A1，rw=2 C1=A2，rw=3 D1=A3，rw=4 B2=A4 如此循环

这样子比考虑转置算法要直接一些。
这条命令26行以上会报错，mod 后变量为什么填49会报错，跪求解答

Answer 1

Sub aa()
irow = Range("A65536").End(xlUp).Row
k = irow + 3
For i = 1 To irow
icol = Range("IV" & i).End(xlToLeft).Column
For j = 2 To icol
Cells(k, 1) = Cells(i, 1)
Cells(k, 2) = Cells(i, j)
k = k + 1
Next
Next
End Sub