【Excel】セル内の特定の文字だけ色を変える

「対象の行」と書いてくれているのに、勘違いしましたね。。。
行指定だと以下のような感じになると思います。

Public Sub setColor()
‘検索するキーワード
Const KEYWORD = “エラー”
‘色を塗るセルが格納されている行
Const ROW_TARGET = 1

Dim regexp As Object
Dim i As Long
Dim j As Long
Dim regResult As Object
Set regexp = CreateObject(“VBScript.RegExp”)

With regexp
.Pattern = KEYWORD
.IgnoreCase = True
.Global = True
‘1列目から使用最終列を対象にする
For i = 1 To ActiveSheet.Cells(ROW_TARGET, Columns.Count).End(xlToLeft).column
Set regResult = .Execute(ActiveSheet.Cells(ROW_TARGET, i))
For j = 0 To regResult.Count – 1
‘指定された単語があれば赤色にする
ActiveSheet.Cells(ROW_TARGET, i).Characters(Start:=regResult(j).FirstIndex + 1, Length:=Len(KEYWORD)).Font.Color = -16776961
Next j
Next i
End With
Set regResult = Nothing
Set regexp = Nothing
End Sub

結局ループはさせてるのですが、個人的には以下のようにFor Eachを使うのがスマートな書き方がします。
Const SHEET_TARGETで指定しているワークシートで使用しているセルをループさせています。

Public Sub setColor()
‘検索するキーワード
Const KEYWORD = “エラー”
‘色を塗るセルが格納されているシート名
Const SHEET_TARGET = “Sheet1”

Dim regexp As Object
Dim i As Long
Dim j As Long
Dim regResult As Object
Set regexp = CreateObject(“VBScript.RegExp”)

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets(SHEET_TARGET)

With regexp
.Pattern = KEYWORD
.IgnoreCase = True
.Global = True
For Each cell In sh.UsedRange
Set regResult = .Execute(cell)
For j = 0 To regResult.Count – 1
‘指定された単語があれば赤色にする
cell.Characters(Start:=regResult(j).FirstIndex + 1, Length:=Len(KEYWORD)).Font.Color = -16776961
Next j
Next cell
End With
Set regResult = Nothing
Set regexp = Nothing
End Sub

列指定があると関数でなんとかしたくなるけどVBAしか思いつかないですね。。。
VBAならこんな感じでどうでしょうか。

Public Sub setColor()
    'キーワードがある列
    Const KEYWORD_COLUMN As String = "A"
    '色を塗る列
    Const TARGET_COLUMN As String = "B"
    '開始行 1行目からスタート
    Const START_ROW As Long = 1
    '現在のシートを対象にする
    Dim sh As Worksheet
    Set sh = ThisWorkbook.ActiveSheet
    
    Dim regexp As Object
    Dim i As Long
    Dim j As Long
    Dim regResult As Object
    Set regexp = CreateObject("VBScript.RegExp")
    
    Dim row As Long
    For row = START_ROW To sh.Cells(Rows.Count, convertToColumnNum(KEYWORD_COLUMN)).End(xlUp).row
        Dim targetCell As Range
        Set targetCell = sh.Cells(row, convertToColumnNum(TARGET_COLUMN))
        Dim keywordCell As Range
        Set keywordCell = sh.Cells(row, convertToColumnNum(KEYWORD_COLUMN))
        
        With regexp
            .Pattern = keywordCell.Value
            .IgnoreCase = True
            .Global = True
            Set regResult = .Execute(targetCell)
            For j = 0 To regResult.Count - 1
                '指定された単語があれば赤色にする
                targetCell.Characters(Start:=regResult(j).FirstIndex + 1, Length:=regResult(j).Length).Font.Color = -16776961
            Next j
        End With
    Next row
    

    Set regResult = Nothing
    Set regexp = Nothing
End Sub

'列のアルファベットを数値に変換する　例)A→1に変換する
Function convertToColumnNum(ByVal address As String) As Integer
    convertToColumnNum = Columns(address).Column
End Function