Excel関数について、教えてください。 B列に同じ文字が入り、C列に指定した文字が入っていた場合、A列が色付けされ…

Question

Excel関数について、教えてください。

B列に同じ文字が入り、C列に指定した文字が入っていた場合、A列が色付けされるようにしたいです。
A列 B列 C列1行 (色付け) 123 りんご
2行 (色付け) 123 みかん
3行 (色付け) 123 いぬ

※A列に色付けされるのは、1行と2行。

C列に入る指定した文字は、以下のような指定された文字となります。
①りんご、みかん、バナナ
②いぬ、ねこ、うさぎ

上手く説明ができず、申し訳ないのですが、
どなたかお助けいただけませんでしょうか…。
どうぞ宜しくお願い致します。

Answer 1

B列に同じ文字が入り 何と同じなのでしょうか？

C列に入る指定した文字は、以下のような指定された文字となります。
①りんご、みかん、バナナ
②いぬ、ねこ、うさぎ
この①，②は どういう意味でしょうか
Ｃ１セルに りんご、みかん、バナナ
Ｃ２セルに いぬ、ねこ、うさぎ
と 入るという意味でしょうか

添付で いいのですか？
添付で いいのであれば
A1セルに 条件付書式で
条件式 =AND(B1=123,OR(COUNTIF(E$1,"*"&C1&"*"),COUNTIF(E$2,"*"&C1&"*")))
書式 塗りつぶし
摘要先 =$A:$A
で できます

Answer 2

もしかして、こういうことでしょうか。

Sub test()

Dim tbl1 As Variant, tbl2 As Variant
Dim dic As Object
Dim s() As String
Dim n As Long, i As Long, j As Long

With ActiveSheet
tbl1 = Range(.Cells(1, "B"), .Cells(Rows.Count, "C").End(xlUp))
tbl2 = Range(.Cells(1, "E"), .Cells(Rows.Count, "E").End(xlUp))
For i = 1 To UBound(tbl2)
Set dic = CreateObject("Scripting.Dictionary")
s = Split(tbl2(i, 1), "、")
For j = 1 To UBound(tbl1)
On Error Resume Next
n = Application.WorksheetFunction.Match(tbl1(j, 2), s, 0)
If Err.Number = 0 Then
If dic.Exists(tbl1(j, 1)) Then
.Cells(dic.Item(tbl1(j, 1)), 1).Interior.Color = RGB(255, 255, 0)
.Cells(j, 1).Interior.Color = RGB(255, 255, 0)
Else
dic.Add tbl1(j, 1), j
End If
End If
On Error GoTo 0
Next j
Next i
End With

End Sub

Answer 3

マクロ(ＶＢＡ)を書くとこうなります。

Dim i, j
For i = 1 To 2
For j = 1 To 5
If InStr(Cells(i, 5), Cells(j, 3)) Then Cells(j, 1).Interior.ColorIndex = 3
Next j
Next i