■excel vba で教えてください。 A列2行目以降にバラバラに(等間隔でない)に〇が入っています。

Visual Basic | Excel21閲覧

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:4/14 15:23

その他の回答(2件)

0

Dim R, LastRow As Long Dim N As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row N = 0 For R = 2 To LastRow If Cells(R, "A").Value = "○" Then N = N + 1 Cells(R, "A").Value = N End If Next R これでどうでしょうか。

0

ワークシート関数と比べると意外と簡単ですね。 Sub test() Dim i As Long, k As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = "○" Or Cells(i, 1) = "〇" Then k = k + 1 Cells(i, 1) = k End If Next End Sub