A列にある文字データで△△を含むセルの値をB列に□□にして置き換えしたい

回答１さんのいう変換表というのは ＿Ｆ＿＿＿Ｇ＿＿ ミカン＿＿黄＿＿ スイカ＿＿緑＿＿ スイカ＿＿緑＿＿ こういう表を別なセルに作っておいた方が汎用性があるということです。 で、こういう表がＦ、Ｇ列にあるとして。。。。 '------------------------------ Sub test() 　Dim i As Long 　Dim myCell As Range 　Dim myTable As Range 　Set myTable = Range("F1", Cells(Rows.Count, "F").End(xlUp).Offset(0, 1)) 　For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row 　　　Set myCell = myTable.Find(Cells(i, "A").Value, , xlValues, xlPart) 　　　　　If Not myCell Is Nothing Then 　　　　　　　Cells(i, "B").Value = myCell.Offset(0, 1).Value 　　　　　End If 　Next i End Sub '------------------------------------ データが少なければ、For Nextなどで変換表をぐるぐる回してもいいのですが データが多い場合は上記のようにFindメソッドを使うほうがいいでしょう。 というより使うべきです。処理スピードが格段に違います。 以上です。 　 　

△△はどこに定義してあるのかな？ ミカンがＺＺ、西瓜がＹＹ、イチゴがＸＸのようですが、それをどうやって処理するのかな？ 列Ａと列Ｂだけでは難しいでしょうね。 列Ａはいまのまま、列Ｂに△△を、列Ｃに□□を、列Ｄに置換後も文字列が出るようにするのはアリですか？ １）セルＤ１に式[=SUBSTITUTE(A1,B1,C1)]を設定。 ２）セルＤ１の右下の■を下方向にドラッグしてコピー。