求重复次数

moshimro

重复次数  

求G 列在A列里面有几个重名。 显示到F列上面

高个子

1. =COUNTIF(A:A,G2)

复制代码

安若浅笑

=VLOOKUP(G2,A:A,1,0)&COUNTIF(A:A,G2)&"次数"

wdy895

1. =SUM(($A$2:$A$83=G2)*1)

复制代码

下拉

leepoison

来个宏自动搜索不重复的AB 显示在GH列，F列显示重复的次数
Sub ExtractUniqueValues()

    Dim Dict As Object
    Dim c As Range
    Dim i As Long, j As Long
   
    Set Dict = CreateObject("Scripting.Dictionary")
    j = 2
   

    For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If Not Dict.Exists(c.Value) Then
            Dict.Add c.Value, c.Offset(0, 1).Value
            Range("G" & j).Value = c.Value
            j = j + 1
        End If
    Next c
   
  
    For i = 2 To j - 1
        Range("H" & i).Value = Dict.Item(Range("G" & i).Value)
    Next i
   

    For i = 2 To j - 1
        Range("F" & i).Value = Application.CountIf(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row), Range("G" & i).Value)
    Next i

End Sub

w4275

橒♂蝣

=COUNTIF(A:A,G2)这个可以