excel - 搜索字符串并如果找到则粘贴值 - 然后循环

Question

我正在尝试构建一个宏，该宏在列中搜索两个字符串(“小费”或“非交易”)。如果找到此值，则将“Y”值粘贴到另一列中。如果没有'然后粘贴“N”。

我正在努力让它工作，并且不知道如何处理“不等于然后“N”)部分。

下面只是查找“小费”的示例:

Sheets("Pipeline simplified").Select

Dim TipFee As String
Dim NonDeal As String
Dim t As Integer
Dim LastRowtip As Long
TipFee = "Tip Fee"
NonDeal = "Non-Deal"
LastRowtip = Cells(Rows.Count, "H").End(xlUp).Row


For t = 7 To LastRowtip

    If Cells(t, 8).Value = TipFee Then
    Cells(t, 30).Value = "Y"
      End If
Next t

Answer 1

仍然可以在 VBA 中使用公式，这样就不需要循环。可以创建公式来搜索单元格内的文本，也可以不区分大小写。然后只需转换为值即可。

Dim ws As Worksheet

Set ws = ActiveWorkbook.Worksheets("Pipeline simplified")

With ws.Range("AD7:AD" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row)
    .Formula = "=IF(OR(ISNUMBER(SEARCH({""Tip Fee"",""Non-Deal""},H7))),""Y"",""N"")"
    .Value = .Value
End With