找到一个单元格范围内的字符串

Question

我想写一个VBA代码来找到一个特定的字符串到一个单元格区域，找到字符串之后我需要写入一些细胞波纹管。

例

我已经将原料1字“测试”，所以我需要在字符串是什么细胞，前F1，在那之后我需要自动填写下面的单元格，在这种情况下找到F2用“是”字样

在此先感谢

卡洛斯

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