マクロで一つのセルに複数文字が入っている時の抽出・背景の色付け方法

Question

前提・実現したいこと

A:ウ
P:ケ

と一つのセルに入力したときに「ウ」「ケ」それぞれの背景に色をつけたい

＊用途
16日始まりのシフト表です
シフトの管理が大変で抜け漏れが生じるので、割り振った際に「この店舗は割り振り済み」とわかるよう色が付く仕組みにしたいです

＊補足
C12C37まで人の名前が入っています
C31C58までは店舗名が入っています
16日（月）はJ列
店舗名のところは例えば、J38にAMなどの割り当て、J39に詳細な時間が入るようにしてます

発生している問題・エラーメッセージ

現状のソースコードでは先に該当する「ウ」しか背景に色がつきません。
これを「ウ」「ケ」それぞれの背景に色をつけたいのですが、うまくいきません。
条件付書式では膨大で面倒になってしまうので、マクロで何かいい方法はありますでしょうか？

該当のソースコード

Dim i As Long
Dim j As Long
Dim k As Long



For i = 12 To 37
    For j = 10 To 40
      For k = 38 To 39
    
    
    
        If Cells(i, j) Like "*ウ*" Then

         Cells(k, j).Interior.Color = RGB(220, 220, 220)
         
         
         ElseIf Cells(i, j) Like "*ケ*" Then

         Cells(k + 2, j).Interior.Color = RGB(220, 220, 220)
         
         

        End If
                
                
                
        Next k
    Next j
Next i


End Sub

試したこと

FINDメソッド、別シートにリストを作って照らし合わせるなど。いろいろ試してみましたが、さっぱりでした。。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

こうですか？

  If Cells(i, j) Like "*ウ*" Then Cells(k, j).Interior.Color = RGB(220, 220, 220)
  If Cells(i, j) Like "*ケ*" Then Cells(k + 2, j).Interior.Color = RGB(220, 220, 220)

Comments

[matsudesuyo]

できました！！半日ずーっと悩んでたのですが…シンプルな方法でできるんですね！勉強になりました！とても助かりました。ありがとうございます！！