Как разбить лист 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