VBA:２枚目以降のシートを一枚のシートにまとめたいです

前提・実現したいこと

２枚目シート以降を一枚のシートにまとめたいです。
今作成しているコードは全部のシートをひとつにまとめる処理になっています。

該当のソースコード

Sub test()

  'シート名Aに本部部分のシートを一つにまとめる

  Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "A"
  
   
    'すべてのシートで処理
    Dim w As Worksheet
        For Each w In Worksheets
    
        'ただし、シート名が「A」を除く
        If w.Name <> "A" Then
        
            'コピーする各シートのデータで最も下にあるデータの行を探す（A列にデータがあることが前提）
            Dim From_Max_Row As Long
            From_Max_Row = w.Range("a" & Rows.Count).End(xlUp).Row
            
            '貼り付け先のシート「A」で最も下にあるデータの行を探す
            Dim To_Max_Row As Long
            To_Max_Row = Worksheets("A").Range("a" & Rows.Count).End(xlUp).Row
           
           '各シートのデータを1行目からすべてコピーし、「A」に貼り付けていく
           w.Rows("1:" & From_Max_Row).Copy Worksheets("A").Range("a" & To_Max_Row)
           
        End If
    Next

End Sub

試したこと

For文で２枚目以降のシートを選択というコードをいれたのですがエラーがでてしまいます。

発生している問題・エラーメッセージ

オブジェクト変数またはWithブロック変数が設定されていません

Sub test()

  'シート名Aに本部部分のシートを一つにまとめる

  Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "A"
  
   
    '２枚目以降のシートを選択
    Dim w As Worksheet
    Dim i As Long
   

    '繰り返し処理
    For i = 2 To Worksheets.Count
    
        Worksheets(i).Select
    
    
        'ただし、シート名が「A」を除く
        If w.Name <> "A" Then
        
            'コピーする各シートのデータで最も下にあるデータの行を探す（A列にデータがあることが前提）
            Dim From_Max_Row As Long
            From_Max_Row = w.Range("a" & Rows.Count).End(xlUp).Row
            
            '貼り付け先のシート「A」で最も下にあるデータの行を探す
            Dim To_Max_Row As Long
            To_Max_Row = Worksheets("A").Range("a" & Rows.Count).End(xlUp).Row
           
           '各シートのデータを1行目からすべてコピーし、「A」に貼り付けていく
           w.Rows("1:" & From_Max_Row).Copy Worksheets("A").Range("a" & To_Max_Row)
           
        End If
    Next

End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

最初のFor Each のコードのIf文の部分を下記のように修正すればいいでしょう。
Indexで何番目のシートか分かります。

vba
1'前略
2
3   'すべてのシートで処理
4    Dim w As Worksheet
5        For Each w In Worksheets
6
7        'ただし、1番目のシートとシート名が「A」を除く
8        If w.Index = 1 Or w.Name <> "A" Then
9
10'後略

後者のコードを修正するなら、下記で。

vba
1'前略
2
3    '繰り返し処理
4    For i = 2 To Worksheets.Count
5
6    '    Worksheets(i).Select 不要
7        Set w = Worksheets(i)
8
9       'ただし、シート名が「A」を除く
10        If w.Name <> "A" Then
11
12'後略