質問: False End Sub ### 試したこと ここに問題に対して試したことを記載してください。 ふくすう ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
回答: ``` Dim ws As Worksheet For Each ws In sWB.Worksheets If ws.Name = "a" Then ws.Copy After:=dWB.Worksheets(dWB.Worksheets.Count) ActiveSheet.Name = sFile ElseIf ws.Name = "a(2)" Then ws.Copy After:=dWB.Worksheets(dWB.Worksheets.Count) ActiveSheet.Name = sFile & ".2" End If Next ```