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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
各資料ごとに1番からの番号を割り振る。AutoFill機能より便利なマクロ

受講生さんの投稿

(投稿ID: 2159)

やり方が分かれば[1]が解けましたので、
それを動画で確認してから[2]も考えてみました。
なんと動画を見ないで解けました(≧▽≦)
B列とC列で数字の動きは違うけれども、
判別条件はまったく同じなので、まとめてできないかなと。
変数+１を入れる位置がちょっと自信ありませんが
[/code]
Sub rensyu032701()
Dim gyo
Dim BF
Dim CF
BF = 0
CF = 0

For gyo = 4 To 19
If Range("D" & gyo).Value <> Range("d" & gyo - 1).Value Then
BF = BF + 1
CF = 1
Else
CF = CF + 1
End If
Range("B" & gyo).Value = BF
Range("C" & gyo).Value = CF
Next
End Sub
[/code]
by gooska
2016/03/27 13:48