vba - 如果 A 列包含 x 并且 B 列包含 y 那么添加值

Question

我对宏非常陌生(已经过去几天了!)，但正在慢慢地学习。我想创建一个宏，如果 D 列包含文本“(2)”并且 AG 列包含文本“Adult”，则该宏将值 2 添加到单元格。

我已经创建了一个宏，到目前为止，如果 D 列包含文本“(2)”，该宏会将单元格的值更改为 5(而不是添加到它) - 我花了一段时间搞乱“And ”功能，但我似乎找不到一种方法让它考虑 D 列中的“(2)”文本和 AG 列中的“成人”文本(我只能让它搜索其中之一)。

这是我的尝试(这不包括我尝试包含“成人”文本的任何失败尝试):

Sub BUBFindGuests()
    Dim SrchRng As Range
    lastRow = Range("D" & Rows.Count).End(xlUp).Row
    Set SrchRng = Range("D1:D" & lastRow, "AG1:AG" & lastRow)
    For Each cel In SrchRng
        If InStr(1, cel.Value, "(2)") > 0 Then
            With cel.Offset(0, 39)
                .Offset(-1, 0) = "5"
            End With
        End If
    Next cel
End Sub

我基本上只是想弄清楚如何包含 AG 列中的“成人”文本，以及如何使宏添加而不是更改最终值。我也相对确定我的代码的某些部分是不必要的或笨重的，但以我的经验水平，我不确定如何纠正它。任何帮助将不胜感激。

Answer 1

根据您的代码判断，您希望将 2 添加到 C 列，如果是这种情况，这应该可以解决问题:

Sub BUBFindGuests()

lastRow = Sheets("SHEETNAME").Range("D" & Rows.Count).End(xlUp).Row

For x = 1 to lastRow
  If InStr(1, Sheets("SHEETNAME").Cells(x, 4), "(2)") <> 0 _ 'Checks column D
  And Instr(1, Sheets("SHEETNAME").Cells(x, 33), "Adult") <> 0 Then 'Checks column AG
    Sheets("SHEETNAME").Cells(x, 3).Value = _
    Sheets("SHEETNAME").Cells(x, 3).Value + 2 'Change 3 to the appropriate column 
  End If
Next x

End Sub