根据数据的连续性将一个excel工作表中的表拆分为多个其他工作表

我正在尝试根据数据的连续性，将一个excel工作表中的多个表自动拆分为不同的工作表。一旦有一个空白，比如一个空行，它就会为下一个表启动一个新的工作表，并且要做多次，因为我在一个工作表中有很多数据

---

这是一个数据片段的图像，数据的连续性是不固定的，即有时是4行，有时是20行等等。我希望它包含整行输入。

您可以使用下面的代码将所有数据提取到不同的工作表中

Sub spreaddate()

Dim totalrows As Integer
Dim countworksheet As Integer
Dim lastcopy As Integer
Dim Sht As Worksheet
Set Sht = ActiveSheet

countworksheet = 1
lastcopy = 2

totalrows = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To totalrows + 1
        If Cells(i, 1).Value = "" Then
            Sheets.Add.Name = countworksheet
            Sht.Range("1:1").Copy Sheets(countworksheet).Cells(1, 1)
            Sht.Range(lastcopy & ":" & i - 1).Copy Sheets(countworksheet).Cells(2, 1)
            lastcopy = i + 1
            countworksheet = countworksheet + 1
            Sht.Activate
        End If
    Next i

End Sub

---

谢谢你，伙计，这太完美了，正是我想要的！