总结来自两个不同表格的两列

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

This Works。您可能需要更新范围参考。它在单独的工作表上输出摘要。

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 

Answer 2

在工作表的底部，使用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 

现在创建一个带有列值“Header”的数据透视表并计算COUNTA公式以获得结果。

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