エクセル ＶＢＡ 複数条件一致の場合の変換

エクセルの初心者ですが

ぜひ教えてください。


Ｃ列のどこかに　aaaaaa　と記入されていて

なおかつ、その記入されている行のＤ列に　ｂｂｂ　と記入されていて

なおかつ、その記入されている行のＨ列に　ｃｃｃ　と記入されている場合

のみ　ｄｄｄ　と文字を変換するVBAの作成したいのですが、

ぜひ、教えてください。

No.2 ベストアンサー 回答者： KURUMITO 回答日時： 2012/07/11 17:52

ごめんなさい。

回答1です。
End If が抜けておりました。

Sub 置換()
Dim i As Integer
For i = 1 To Range("C65536").End(xlUp).Row
If Range("C" & i) = "aaaaaa" And Range("D" & i) = "bbb" And Range("H" & i) = "ccc" Then
Range("H" & i) = "ddd" 'H列のデータをdddに置換する場合
End If
Next
End Sub

この回答へのお礼

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

とてもわかりやすくてやりたい事ができました。

お礼日時：2012/07/11 20:33

No.1 回答者： KURUMITO 回答日時： 2012/07/11 13:55

シート見出しを右クリックして「コードの表示」を選択し表示される画面の右側には下のコードを入力すればよいでしょう。

Sub 置換()
Dim i As Integer
For i = 1 To Range("C65536").End(xlUp).Row
If Range("C" & i) = "aaaaaa" And Range("D" & i) = "bbb" And Range("H" & i) = "ccc" Then
Range("H" & i) = "ddd" 'H列のデータをdddに置換する場合
Next
End Sub

この回答への補足

回答ありがとうございます。

参考にさせていただいたのですが、

Nextに対するForがありません

という表示が出でしまいました。

補足日時：2012/07/11 15:10