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

質問

エクセルの初心者ですが

ぜひ教えてください。

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

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

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

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

ぜひ、教えてください。

回答No.2

KURUMITO · ベストアンサー

ごめんなさい。回答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

お礼

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

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

回答No.1

KURUMITO

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

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がありません

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