|
皆さんこんにちは。
自分で考えてみるものの、行き詰まり利用させてもらってます。
いつもご回答してくれる方々、有難う御座います。
まず下記をご覧下さい。
Dim KaiinNo As Long, CellGyo As Variant
KaiinNo = Worksheets("解析").Range("C2")
CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)
If Worksheets("解析").Cells(KaiinNo, "B").Columns = 0 Then
Worksheets("データ").Cells(CellGyo, "AC").Value = Worksheets("データ").Cells(CellGyo, "AC") + 1
End If
シート『データ』と『解析』があります。
・『解析のC2』のNoを『データ』から探し出します。
・一致するNoがあり、かつ『解析B2』が 0 ならば『データのAC』の数値を +1 します。
しかし、これは1つだけの変更です。(動作は確認済)
これを500個分とかしたいのです。
一括で変更する方法って分かる方がいましたらお教え下さい。
只、500以上あるので、出来れば LOOP とかは避けたいんですけど。
良い方法ってあります…?
いつもいつも質問ばかり繰り返してスイマセンです。m(_ _)m
|
|