0

我一直在研究下面的代码。代码将为找到值“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
4

1 回答 1

3

您应该将值链接到单元格：

range("B" & i).Value = "test"
于 2013-03-20T10:17:36.723 回答