在单元格范围内查找字符串

Question

我正在尝试编写一个VBA代码，以便在找到需要将某些内容写入单元格的字符串后，在单元格区域中查找特定字符串。

示例

我在原始1上有“测试”这个词，所以我需要找到字符串在哪个单元格中，前面的F1，之后我需要自动填充下面的单元格，在这种情况下F2用单词“Ok”

提前致谢

卡洛斯

Answer 1

请尝试以下代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Cells(1, 1).End(xlToRight).Column
    If InStr(Cells(1, i), "Test") Then
      Cells(2, i) = "OK"
    End If
Next




End Sub