Заполнить ряд строк в VBA - PullRequest
1 голос
/ 25 апреля 2019

В настоящее время я работаю в 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

Я пытаюсь заполнить оставшиеся даты, и примером будет заполнение диапазона B2: AF2 тем, что уже присутствует в B2.
Кто-нибудь может посоветовать, как мне поступить с этим?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...