合并多行相同值并计算其总数

Question 1

使用数据透视表。

Items同时输入Rows和Values。

确保它是Count of Item。它应该默认为。如果不是，请右键单击下面的标签Values并选择Value Field Settings并更改为Count。

Answer

使用数据透视表。

Items同时输入Rows和Values。

确保它是Count of Item。它应该默认为。如果不是，请右键单击下面的标签Values并选择Value Field Settings并更改为Count。

Question 2

尝试这个简短的宏：

Sub demo()
    Dim A As Range, B As Range, C As Range
    Dim N As Long, i As Long, wf As WorksheetFunction
    Set A = Range("A:A")
    Set B = Range("B:B")
    Set wf = Application.WorksheetFunction

    A.Copy B
    B.RemoveDuplicates Columns:=1, Header:=xlNo
    N = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To N
        Cells(i, "C").Value = wf.CountIf(A, Cells(i, "B").Value)
    Next i
End Sub

Answer

尝试这个简短的宏：

Sub demo()
    Dim A As Range, B As Range, C As Range
    Dim N As Long, i As Long, wf As WorksheetFunction
    Set A = Range("A:A")
    Set B = Range("B:B")
    Set wf = Application.WorksheetFunction

    A.Copy B
    B.RemoveDuplicates Columns:=1, Header:=xlNo
    N = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To N
        Cells(i, "C").Value = wf.CountIf(A, Cells(i, "B").Value)
    Next i
End Sub

Question 3

您也可以使用公式来执行此操作，但它不会合并结果，而是会在每一行显示相关计数。

假设您的数据在单元格中A2:A38，则您需要的公式是=COUNTIF($A$2:$A$38, A2)。将其放入单元格中B2并自动填充到单元格中B38。

Answer

您也可以使用公式来执行此操作，但它不会合并结果，而是会在每一行显示相关计数。

假设您的数据在单元格中A2:A38，则您需要的公式是=COUNTIF($A$2:$A$38, A2)。将其放入单元格中B2并自动填充到单元格中B38。

合并多行相同值并计算其总数

答案1

答案2

答案3

相关内容