基于两个变量循环范围和计数答案

【问题标题】：Loop through range and count based on two variables基于两个变量循环范围和计数
【发布时间】：2021-07-16 16:30:08
【问题描述】：

我正在尝试开发一个代码，它允许我遍历一个范围并创建具有 2 个条件的总行数。

对于下面的示例，我想遍历第 2-12 行，并在每行包含“Pway”和“T-4”字样时增加计数器。然后将结果放在单元格 G2 中。我以前玩过循环，但从来没有玩过两个变量。

有人可以帮忙吗？

【问题讨论】：

你可以用公式做到这一点，你需要它是vba吗？
我目前对所有选项持开放态度。
If AnswerToAboveComment = "Yes" Then 您可以嵌套 2 个 IF...Then 语句来检查 1 个条件，如果满足，则检查第 2 个条件，如果满足则增加一个计数器变量。
基本上：=COUNTIFS(A:A,"Pway",D:D,"T-4")

标签： excel vba loops excel-formula

【解决方案1】：

在G2中加入如下公式并下拉

=COUNTIFS($A$2:A2,"Pway",$D$2:D2,"T-4")

要得到以下结果：

【讨论】：

【解决方案2】：

请也试试 VBA 解决方案：

Sub countTwoCriteria()
 Dim sh As Worksheet, arr, lastR As Long, i As Long, count As Long
 
 Set sh = ActiveSheet
 lastR = sh.Range("A" & sh.rows.count).End(xlUp).row
 
 arr = sh.Range("A2:D" & lastR).value
 
 For i = 1 To UBound(arr)
    If UCase(arr(i, 1) & arr(i, 4)) = UCase("Pway" & "T-4") Then count = count + 1
 Next i
 If count > 0 Then sh.Range("G2").value = count
End Sub

【讨论】：