如果另一列VBA中的唯一值，則計算一列

Question

我有一個電子表格，我需要對列（N：N）中有多少個“ UDL”值求和，但是問題是，它們僅應針對列（CC）中的每個唯一數字進行計數

因此，對於在N列中也包含“ UDL”的每個數字，由於可能有很多重復項，因此它們應該僅被計數一次。

希望你能幫助:)

Answer 1

看起來像循環和定界的字符串將是一種快速獲取所需內容的方法。 假設列A總是被填充並且在行1中有一個標題，例如：

Dim u as string
Dim i as long
dim t as long
i = 2

Do While Range("A" & i).value <> ""
    If Range("N" & i).value = "UDL" Then
        If InStr(1, u, "|" & Range("C" & i).value & "|") = 0 Then
            t = t + 1
            u = u & "|" & Range("C" & i).value & "|"
        End If 'else the value in C is non-unique
    End If 'else not UDL so no action needed
    i = i + 1
Loop

Range("A" & i + 1).value = t 'Outputs t to column A with a blank row between it & your data

這需要根據應控制循環的列，循環應從哪行開始以及希望計數的位置進行一些調整。