« 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

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/15026528

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

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