宏 - countif函数检查范围是否“包含”标准

时间:2013-03-22 09:52:23

标签: excel vba

我有一个宏,它使countif函数检查列A中的列B中的列B的条件。两者(范围和标准)可能具有不同的大小,因此宏一直运行到最后一个单元格填充。但是,它会检查完全相同的匹配。我想改造它以检查范围是否包含criateria。例如,如果标准是“经理”,并且在我们拥有“营销经理”的范围内,我想算一算。您可以在下面找到excel文件的屏幕截图和我的宏代码。

截图:

enter image description here

宏代码:

Sub Countif_Until_LastRow()

Dim lastRowColumnB As Long
lastRowColumnB = Range("B65000").End(xlUp).Row

For i = 2 To lastRowColumnB
Cells(i, 3) = Application.CountIf(Range("A:A"), Cells(i, 2))
Next
End Sub

1 个答案:

答案 0 :(得分:4)

试试这个:

Cells(i, 3) = Application.CountIf(Range("A:A"), "*" & Cells(i, 2) & "*")

* (明星)的工作方式类似于野性字符