« Priea | Main | Excelのセルに設定されたハイパーリンクをまとめて解除する »

May 10, 2007

簡単な判別 エクセルVBA

------------------------------
Sub Macro1()

Dim i_End As Integer
Dim i, j As Integer

i_End = Range("D65536").End(xlUp).Row
j = 1

    For i = 2 To i_End

        If Cells(i, 2) = Cells(i - 1, 2) Then
            j = j + 1
            Cells(i, 3) = j

        Else
            j = 1
            Cells(i, 3) = j

        End If

    Next i

End Sub
------------------------------

  ブログランキング

|

« Priea | Main | Excelのセルに設定されたハイパーリンクをまとめて解除する »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference 簡単な判別 エクセルVBA:

« Priea | Main | Excelのセルに設定されたハイパーリンクをまとめて解除する »