Combine várias linhas do mesmo valor e obtenha total ao lado delas

Question

Estou tentando combinar várias linhas do mesmo valor e obter os totais ao lado deles.

No exemplo abaixo, gostaria de ver o item 604K89996 (A2) aparecer com a contagem de 23 ao lado dele na célula B2.

item
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
JC92-01998A
JC92-01998A
JC92-01998A
604K89996
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
JC92-01998A
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996
604K89996

Isso pode ser feito?

Eu consegui essa parte, mas agora estou tentando extrair dados de outra planilha para essa planilha. Eu suspeito que esta é uma função de pesquisa, mas estou tendo problemas com isso. Existe alguém para quem eu possa enviar o arquivo para que ele possa ver?

    

Answer 1

Use uma tabela dinâmica.

Coloque Items nos Rows e Values .

Verifique se é Count of Item . Deve padrão para isso. Se não estiver, clique com o botão direito no rótulo em Values , selecione Value Field Settings e mude para Count .

    

Answer 2

Experimente esta macro curta:

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 3

Você também pode fazer isso com uma fórmula, mas ela não combinará os resultados, mas mostrará a contagem relevante em todas as linhas.

Supondo que seus dados estejam nas células A2:A38 , a fórmula que você precisa é =COUNTIF($A$2:$A$38, A2) . Coloque isso na célula B2 e preencha-a automaticamente na célula B38 .