投稿/コメントを表示します。

発展編1 総合演習「伝票作成マクロ」を作ってみよう
重複しないリストを作成し、新規シート作成時にリストからシート名を生成する

荏隈 直樹さんの投稿

(投稿ID: 325) 

Sub mondai8()
    DeleteSheets
    CopyCreate
End Sub

Sub CopyCreate()
    Dim BG As Long
    Dim BEG As Long
    Dim WSM As Worksheet
    
    Set WSM = Worksheets("main")
    BEG = WSM.Range("B65536").End(xlUp).Row
    
    For BG = 2 To BEG
        If WSM.Range("B" & BG).Value <> WSM.Range("B" & BG - 1).Value Then
            Sheets("main1").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = WSM.Range("B" & BG).Value
        End If
    Next
End Sub

問題なく出来ました。
2014/07/06 02:57