簡単な判別 エクセル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
------------------------------
「VBA」カテゴリの記事
- エクセル VBA 範囲指定(2009.10.16)
- エクセル VBA プリンタを指定して印刷(2009.04.24)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
The comments to this entry are closed.
Comments