根據數據的連續性，將一張 excel 工作表中的表格拆分為多個其他工作表

Question

我正在嘗試根據數據的連續性將一張 excel 表中的多個表自動拆分為不同的表。 一旦出現間隙，例如空行，它就會為下一個表啟動一個新工作表，並且由於我在一張工作表中有很多數據，因此需要多次執行。

這是數據片段的圖像，數據的連續性不是固定的，即有時是 4 行，有時是 20 行等。我希望它接受整行輸入。

Answer 1

您可以使用以下代碼將所有數據提取到不同的工作表

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