デリミタ値に基づいて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