在Excel中将多行中固定数量的单元格转换为单个列

Question

如何在VBA中将固定数量的单元格从多行转置到单个列？ 例如：从第1-50行到不同工作表的A列的前10个单元格（列A-J）。

Answer 1

假设您在10x10的第一个工作表中有A1范围。

k=1
for i = 1 to 10
   for j = 1 to 10
      range(i,j).copy
      workbooks("wb2").sheets("ws").Range(k,1).pastespecial xlValues
      k= k+1
   next
next

不是：我目前处理的电脑没有优秀，所以没有经过测试。