В настоящее время я работаю в Excel Workbook с 36 вкладками, содержащими похожие данные.К счастью, большинство данных помещается в один и тот же номер ячейки на каждой вкладке.Я использовал VBA для извлечения данных из каждой вкладки и заполнения своей последней вкладки под названием «Вывод»
Public Sub test()
Dim currentWorkbook As Workbook
Dim currentSheet As Worksheet
Dim otherSheet As Worksheet
Dim i As Integer
Dim j As Integer
Set currentWorkbook = ActiveWorkbook
Set otherSheet = currentWorkbook.Worksheets("Output")
i = 1
For Each currentSheet In currentWorkbook.Worksheets
otherSheet.Range("A" & i).Value = currentSheet.Range("A2").Value
otherSheet.Range("B" & i).Value = currentSheet.Range("D20").Value
otherSheet.Range("AG" & i).Value = currentSheet.Range("E20").Value
otherSheet.Range("BI" & i).Value = currentSheet.Range("F20").Value
otherSheet.Range("CN" & i).Value = currentSheet.Range("G20").Value
otherSheet.Range("DR" & i).Value = currentSheet.Range("H20").Value
i = i + 1
Next currentSheet
Set currentSheet = Nothing
Set currentWorkbook = Nothing
, и данные выглядят так:
![1](https://i.imgur.com/VcmKoma.png)
Я пытаюсь заполнить оставшиеся даты, и примером будет заполнение диапазона B2: AF2 тем, что уже присутствует в B2.
Кто-нибудь может посоветовать, как мне поступить с этим?