Excel宏如何复制和粘贴第一行，2次（在它下面有2个空行）

Question

是Excel Macro的新手。我有一个数字列表（超过100行）。我有一行数据，后面是2个空行。这是一组3，我有这个组重复超过100行。所以，第1行=值，第2,3行=空。 Row4 =值，第5,6行=空。如何复制组的第一行，并将其粘贴到接下来的2个空行中？每组中的第一行是不同的。这就是我试过的：

Answer 1

这会将整行复制到它下面的两行，然后转到下一组。并再次循环。我假设你有标题。

Sub threesLoop()
Dim x As Long
Dim LastRow As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row

For x = 2 To LastRow
    If (x = 2) Or ((x - 2) Mod 3 = 0) Then
        Rows(x + 1).Value = Rows(x).Value
        Rows(x + 2).Value = Rows(x).Value
    End If

Next x

End Sub