vba - 色が付いたらB列にテキストを配置する (VBA/Excel)

Question

私は以下のコードに取り組んできました。コードは、値「test」が見つかったすべての行に色を付けます。「テスト」が見つかったら、プログラムに「テスト」も列Bに入れさせたい.

以下の「値」でわかるように、私はすでに何かを試しましたが、列 B をそれに割り当てる方法がわかりません。

Sub colorF()
  For i = 1 To 3000
    For Kolom = 1 To 25
    ColInd = ""

    If InStr(1, Cells(i, Kolom), "test") > 0 Then ColInd = 3: Value = "test"

    Rows(i).Select
    If Not ColInd = "" Then Selection.Interior.ColorIndex = ColInd
    Next Kolom
  Next i
End Sub

Answer 1

値をセルにリンクする必要があります。

range("B" & i).Value = "test"