Копирование ячеек из других книг в одну книгу автоматически

Question

У меня есть много файлов excel одной структуры в одной папке (Пример 1, Образец 2 ...... Образец 20). Я создал еще один файл excel в той же папке, которая должна извлекать информацию из файла excel (Результаты). В каждом файле Sample есть определенный столбец, который мне нужно скопировать и вставить в строку в файле Results. Я пытаюсь создать инструмент или макрос, который может одним нажатием кнопки извлечь один и тот же столбец из каждого файла и вставить его в новую строку в файле результатов. Я не могу ничего изменить в файлах Sample, и это нужно делать автоматически, не открывая каждый файл. Кроме того, в папку будут добавлены новые файлы примеров (пример 21 ... 22 и т. Д.), Чтобы функция могла извлекать новые файлы.

Редактировать.

Основано на предположении Помуля о переносе строк. Я придумал следующий код и результаты. Сейчас я тестирую код, чтобы транспонировать в том же листе:

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