質問: "'" & i & "/" & Worksheets.Count: Next End Sub どなたかお力をお借りできれば、有難いです それとそのVBAがワークシートを開いたら作動するようにしたいです なにかと細かくてすみません
回答: >その場合の集計表という名前だけで判断して、 >回答してくださったプログラムの中で連続でページ番号を振っていく Sub pageB() Dim i As Long, j As Long For i = 1 To Worksheets.Count If Worksheets(i).Name Like "集計表*" Then j = j + 1 Worksheets(i).Range("G1") = "'" & j & "/" & Worksheets.Count End If Next End Sub