定期复制数据

Question

我在 Sheet 1 中有数据，比如第 1、2、3、4 行...等等，我想将它们放入 Sheet2 中，每行之间有 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

如何在 MS Office 中添加 VBA？