VBA找到一个空白行，然后复制它上面的两行，然后移到下一个空白行

Sub CopyTwoRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim emptyRow As Long
    
    ' 设置要操作的工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 从第2行开始循环，找到空白行
    For currentRow = 2 To lastRow
        If ws.Cells(currentRow, 1) = "" Then
            ' 找到空白行，复制上面的两行
            ws.Rows(currentRow - 2 & ":" & currentRow - 1).Copy
            
            ' 找到下一个空白行
            emptyRow = ws.Cells(currentRow, 1).End(xlDown).Row + 1
            
            ' 将复制的两行粘贴到下一个空白行
            ws.Rows(emptyRow & ":" & emptyRow + 1).Insert Shift:=xlDown
            
            ' 跳过已复制的两行，继续查找下一个空白行
            currentRow = emptyRow + 1
        End If
    Next currentRow
End Sub