如何基於分隔符值將Excel工作表拆分為多個工作表？

Question

我正在嘗試將Excel工作表拆分為多個工作表。 我要拆分的工作表上有很多表格，每個表格之間都用“ -----”分隔，該表格出現在A列中的每個表格之后。有人知道如何提取每個“之前”和之后的信息嗎？ -----”，然后放到一張新紙上？ 我也不介意將字符串也復制到新表上。 如果我的一張紙上有10張桌子，中間用“ -----”隔開，那么我想10張桌子，每張桌子都有一張不同的桌子。

不幸的是，我還沒有任何代碼，因為我在重復值之間提取信息的任何嘗試都沒有成功。 我非常感謝您的想法，甚至只是針對過程中的各個步驟。

Answer 1

這應該工作。 根據您的要求修改searchString 。 它不會為第一組數據創建新的工作表，這意味着它將另外創建9個工作表，而原始工作表將是第10個工作表

Option Explicit

Sub serachAndCopy()
    Dim searchString As String
    searchString = "---"

    Dim lastRow As Integer, i As Integer
    lastRow = 0

    Dim thisSheet As Worksheet
    Set thisSheet = Sheets("Sheet1")

    Dim sh As Worksheet

    For i = thisSheet.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If (thisSheet.Range("A" & i) = searchString) Then
            If lastRow = 0 Then
                lastRow = i
                Else
                Sheets.Add After:=Sheets(Sheets.Count)
                Set sh = ActiveSheet
                thisSheet.Rows(i + 1 & ":" & lastRow).Copy Destination:=sh.Rows("1:1")

                thisSheet.Rows(i + 1 & ":" & lastRow).Delete
                lastRow = i
            End If
        End If
    Next i
End Sub