Скопируйте ячейку с 10 листов на новый лист

Я хочу скопировать ячейку с 10 листов на новый лист с помощью Excel VBA.

т.е.

  1. значения в D4 листа 1, лист2.... Sheet10
  2. К A1:A10 листа 11 (с использованием excel-vba)
1 ответ

Это скопирует ячейки в колонку ASheet11, начиная с A1

Sub GatherData()
 For i = 1 To 10
 Sheets("Sheet" & i).Range("D4").Copy Sheets("Sheet11").Cells(i, 1)
 Next i
End Sub

Естественно, вы должны сначала создать Sheet11

licensed under cc by-sa 3.0 with attribution.