在單元格范圍內查找字符串

Question

我正在嘗試編寫VBA代碼以在單元格區域中找到特定的字符串，找到該字符串之后，我需要在單元格中寫一些東西。

例

我在原始文件1上有單詞“ Test”，因此我需要查找字符串在哪個單元格中（例如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