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

発展編1 総合演習「伝票作成マクロ」を作ってみよう
あらかじめ並べ替えられているリストから重複しないリストを作成する

荏隈 直樹さんの投稿

(投稿ID: 324) 

Sub mondai7()
    Dim BG As Long
    Dim BEG As Long
    Dim ToG As Long
    Dim WSM As Worksheet
    
    Set WSM = Worksheets("main")
    BEG = WSM.Range("B65536").End(xlUp).Row
    ToG = 2
    
    For BG = 2 To BEG
        If WSM.Range("B" & BG).Value <> WSM.Range("B" & BG - 1).Value Then
            WSM.Range("D" & ToG).Value = ToG - 1
            WSM.Range("E" & ToG).Value = WSM.Range("B" & BG).Value
            ToG = ToG + 1
        End If
    Next
End Sub

解説文とほぼ同じでしたね
2014/07/06 02:39