Копирование данных с регулярными интервалами

Question

У меня есть данные на листе 1, скажем, строки 1, 2, 3, 4 ... и т.д. Я хочу, чтобы они были помещены на лист 2 с промежутком в 20 строк между каждой строкой.

Как бы я подошел к этому?

Answer 1

Это VBa делает это

Сначала сохраните копию вашего файла, на всякий случай

Option Explicit

Sub WenchesAndMead()

Dim numberOfRowsGap As Integer
numberOfRowsGap = 20

Dim row As Integer
row = 1

Dim otherRow As Integer
otherRow = 1

Do While (Worksheets("Sheet1").Range("A" & row).Value <> "")

    Worksheets("Sheet2").Rows(otherRow).Value = Worksheets("Sheet1").Rows(row).Value
    otherRow = otherRow + numberOfRowsGap
    row = row + 1

Loop

End Sub

Как добавить VBA в MS Office?