複数の行の固定数のセルをExcelの1つの列に転置する

Question

固定数のセルをVBAの複数の行から単一の列に転置するにはどうすればよいですか？ 例：行1-50の最初の10個のセル（列A〜J）を別のワークシートの列Aに挿入します。

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 

：私は現在作業しているので、私は現在作業していないので、テストされていません。