他のブックから1つのブックにセルを自動的にコピー

Question

同じ構造のExcelファイルが1つのフォルダ（サンプル1、サンプル2、サンプル20）に多数あります。同じフォルダに別のExcelファイルを作成しておき、それぞれのファイルからExcelファイル（結果）を取り出す必要があります。各サンプルファイルには、結果ファイルの行にコピーして貼り付ける必要がある特定の列があります。私は、ボタンを押してから、各ファイルから同じ列を抽出して結果ファイルの新しい行に貼り付けることができるツールまたはマクロを作成しようとしています。サンプルファイルでは何も変更できません。これは、各ファイルを開くことなく自動的に実行する必要があります。また、新しいサンプルファイルがフォルダ（サンプル21〜22など）に追加されるので、関数は新しいファイルから引き出すことができます。

編集。

Pomulの提案に基づいて、行を転置します。私は次のコードと結果を思いつきました。今私は、同じワークシートに移調するためのコードをテストしてい：

Transpose Image Screenshot

は私のコードが行にそれを移調するのではなく、別の列を作る理由を私に知らせてください。

Answer 1

これは動作するようです：

Sub Button1_click() 
Dim i&, z&, x& 

i = Worksheets("Sheet2").Cells(Rows.Count, "B").End(xlUp).Row 
z = 1: x = 1 

While z <= i 
    Worksheets("Sheet1").Range("A" & x).Resize(, i) = _ 
     WorksheetFunction.Transpose(Worksheets("Sheet2").Range("B" & z).Resize(i)) 
    z = i + 1 
Wend 
End Sub