Excel想把sheet2中的多行多列转置到sheet4中变成多行两列

Question

Excel想把sheet2中的多行多列转置到sheet4中变成多行两列，如
For j = 1 To icol Step 2
Sheets("sheet4").Cells((j + 1) / 2, 1) = Sheets("sheet2").Cells(i, j)
Sheets("sheet4").Cells((j + 1) / 2, 2) = Sheets("sheet2").Cells(i, j + 1)
Next
为什么实现不了。怎么编制？

Answer 1

数据源行号i没有变化，它就会一直在表sheet2的 i 行，应该在此循环外再加一循环，使 i 变化。
For I=1 TO sheet2.Range("a65536").end(xlup).row

next

Answer 2

楼主代码中的icol应该是需要转换的数据的行号的两倍吧，i，是什么定义呢？