일정한 간격으로 데이터 복사

나는 시트 1에 데이터를 가지고 1,2,3,4 행을 말합니다 ... 나는 각 행 사이에 20 줄의 갭을 가진 Sheet2에 놓기를 원합니다.

어떻게 접근할까요?

이 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

MS Office에 VBA를 어떻게 추가합니까?