循环通过基于两个变量的范围和计数

Question

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

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

有人能帮上忙吗？

​

​

Answer 1

在G2中添加以下公式并将其拉下

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

若要获得以下结果：

​

​

Answer 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