excel - 总结来自两个不同表的两列

Question

我真的需要你的帮助，我想总结一下列标题每次出现的非空单元格。

例如：

     |111|222|333|111|444|222|555

---

aaa  |2  |2  |2  |2  |2  |2  |2    
bbb  |   |2  |2  |2  |2  |2  |2  
ccc  |   |   |2  |   |2  |2  |  
ddd  |2  |   |   |2  |   |2  |  
eee  |2  |   |2  |   |   |   |2  

我希望结果如下所示：

    |111|222|333|444|555
    --------------------
    |6  |6  |4  |3  |3

有任何想法吗？

Answer 1

在工作表的底部，使用 COUNTA 公式计算每列中的非空白数。

         |111|222|333|111|444|222|555
 -------------------------------------
    aaa  |2  |2  |2  |2  |2  |2  |2    
    bbb  |   |2  |2  |2  |2  |2  |2  
    ccc  |   |   |2  |   |2  |2  |  
    ddd  |2  |   |   |2  |   |2  |  
    eee  |2  |   |2  |   |   |   |2  
  COUNTA |3  |2  |4  |3  |3  |4  |3

将特殊/转置标题行和 COUNTA 行粘贴到新工作表中。

  Header | COUNTA
 -----------------
    111  | 3
    222  | 2
    333  | 4
    111  | 3
    444  | 3
    222  | 4
    555  | 3

现在制作一个包含列值“标题”的数据透视表，并对 COUNTA 公式求和以获得结果。

如果您不想使用数据透视表，请将标题值粘贴到新工作表中，删除重复项，然后使用 SUMIF 公式获取每个标题值的总计。

Answer 2

这行得通。您可能需要更新范围引用。它在单独的工作表上输出摘要。

Sub UserNameCount()
Dim headers As Range, header As Range, countRng As Range, col As Long

Set dict = CreateObject("Scripting.Dictionary")
Set headers = Range("A1:G1")
col = 1

For Each header In headers
    Set countRng = Range(header.Offset(1, 0), header.Offset(5, 0)) //update the '5' depending on the number of rows you have

    If Not dict.Exists(header.Value) Then
        dict.Add header.Value, WorksheetFunction.CountA(countRng)
    Else
        dict.Item(header.Value) = dict.Item(header.Value) + WorksheetFunction.CountA(countRng)
    End If
Next header

For Each v In dict.Keys
    With Worksheets("Sheet2")
        .Cells(1, col) = v
        .Cells(2, col) = dict.Item(v)
        col = col + 1
    End With
Next

Set dict = Nothing
End Sub