如果A或B没有双倍计数

Question

我有一组单元格，它们的字符串表示各种语句。如果它有(例如) ABC、ABD或ABQ，我需要它唯一地计数细胞，但是一个单元格可以读取“ABC ABD AMN”，并且只需要计数一次。这是不标准的。

在查看时，我只发现了使用"CountIf(ABC) + CountIf(ABD)+CountIf(ABQ)“的建议，但这会使多个细胞双计数。

然后CountIfs(ABC，ABD，ABQ)只对包含所有这些的细胞进行计数。在不重复计算的情况下，我能用什么方法来唯一地计数细胞？

Set j = .Range(Cells(s, 8), Cells(e, 8))
    .Cells(s - 1, 8).Value = Application.WroksheetFunction.CountIfs(j, "* ABC*", j, "*ABD*", j, "*ABQ*") 

所以输入单元可能是

 [ACD AQM AFD ABD]
 [ABM ARQ ABQ ABC]
 [AAA ABE ARQ]

两个细胞至少有一个所需的短语(ABC，ABD，ABQ)。CountIfs会错误地给出0。CountIf + CountIf会错误地给出3。

Answer 1

你想要这样的东西：

Set j = .Range(.Cells(s, 8), .Cells(e, 8))
With Application.WorksheetFunction
    .Cells(s - 1, 8).Value = .COUNTIF(j,"*ABC*") + .COUNTIF(j,"*ABD*") - .COUNTIFS(j,"*ABC*",j,"*ABD*")
End With

Answer 2

像这样的东西会做到这一点，如果您正在处理非常大的数据列，可能需要优化。这样做的目的是根据每个ABC、ABD或ABQ检查每个单元格，如果在单元中找到匹配的值，则提前退出循环。这将防止可能符合多个标准的细胞重复计数。

Option Explicit

Sub foo()
Dim rng As Range
Dim i As Long
Dim word, words, val, vals
words = CountedWords
Set rng = Range("A1:A3")  'Modify as needed
vals = Application.Transpose(rng.Value)

For Each val In vals
    For Each word In words
        If InStr(val, word) Then
            i = i + 1
            Exit For
        End If
    Next
Next
MsgBox i
End Sub

Function CountedWords()
    CountedWords = Array("ABC", "ABD", "ABQ") 'Modify as needed
End Function