|
よろしくお願いいたします。
オートフィルタで抽出をかけた後のセルの値の修正方法を教えてください。
目的は「[D列]の[2]と等しくないデータを[2]に変更したい」です。
A | B | C | D |
1 AAA | 111 | ABC | 2 |
2 BBB | 222 | DEF | 2 |
3 CCC | 333 | GHI | 2 |
4 DDD | 444 | JKL | 1 |
5 EEE | 555 | MNO | 1 |
6 FFF | 666 | PQR | 3 |
上記のようなデータがあるとして、(データ行数は都度変わります。)
MSのhelpをみて可視セルのFor〜Next分を参考に下記のコードを記述しました。
が、うまくいかないです。
結果としては空白のセルにも[2]が入力されてしまいます。(Rangeで対象を絞るとうまく行きます。)
空白セルになったらFor〜Next分をExitするという記述もわかりません。
どなたかわかる方教えてください。よろしくお願いいたします。
Sub test()
Dim a As Variant
Worksheets("Sheet1").Range("A1").AutoFilter field:=4, Criteria1:="<>2", Operator:=xlAnd
For Each a In Worksheets("Sheet1").Columns(4)
a.Value = 2
Next
Worksheets("Sheet1").Range("A1").AutoFilter
End Sub
|
|