Question

我一直在研究下面的代码。代码将为找到值“test”的每一行着色。当找到“test”时，我希望程序也将“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"

在文本变色时将文本放在B列（VBA / Excel）

1 个答案: