GROUP BY SUM

Boa noite
Galera,

Preciso de ajuda para manipular alguns registros na tabela. Tenho uma tabela como o exemplo:

Item Qtde
A 16
B 12
C 3
A 4

Estou tentando agrupar por Item, somando o campo Qtde para que fique assim:
Item Qtde
A 20
B 12
C 03

Mas não estou conseguindo montar uma rotina que realize isso. tentei utilizar um com group by e sum, mas sem sucesso. Podem me ajudar por favor?

Obrigado desde já; Valeu

UM DETALHE EU NÃO SEI NADA DE VBA EXCEL, PRECISO DE AJUDA MESMO. MAS SE MOSTRA ALGUM EXEMPLO EU PEGO O JEITO

Boa noite, Amigo para onde vc gostaria de enviar os valores já somados?

Muito obrigado por ter respondido.    

Dentro da mesma planilha só que em outro plano.

Dados em Plan1

Somatoria em Plan2

Veja o exemplo em vba

Código:

txtSomaA = DSum("A", "TESTE")
txtSomaB = DSum("B", "TESTE")

No seu caso é Excel aconselho dar uma lida:

http://office.microsoft.com/pt-br/excel-help/maneiras-de-somar-valores-em-uma-planilha-HA010351133.aspx

Como você falo no meu caso é no excel. Anexei um arquivo de modelo, mas não sei as formulas para chegar nesse resultado. Eu sei que utiliza group by sum, mas os artigos na internet está tudo em inglês e eu sou brasileiro.    Mas se puder ajudar ficarei grato. Eu li esse artigo que você mando só que não é isso exatamente que eu quero.

Veja o fórum é para access mas, aguarde um pouco sempre tem um dos mestres que ajudam. Eu infelizmente não entendo bulufas de Excel.

ok. tudo bem. Valeu assim mesmo pela atenção. Vô espera.

Amigo.
É só isso?

Na folha do excel onde tens os valores (Dados), coloca um botão e dá-lhe o nome que entenderes.

Depois de colocar o botão, clica nele com duplo click e abre-te uma janela de VB.

Copia e cola para essa janela o código que junto.

Depois é só colocares os valores que quiseres e quando quiseres somá-los, apenas clicas no botão.

Código:


Private Sub CommandButton1_Click()
Dim start As Integer
Dim AAA As Variant, BBB As Variant, CCC As Variant, DDD As Variant
start = 2
While Range("Dados!A" & start).Value <> ""

    If Range("Dados!A" & start).Value = "A" Then
    AAA = Range("Dados!B" & start).Value
    somaA = somaA + Range("Dados!B" & start).Value
    End If
    If Range("Dados!A" & start).Value = "B" Then
    BBB = Range("Dados!B" & start).Value
    somaB = somaB + Range("Dados!B" & start).Value
    End If
    If Range("Dados!A" & start).Value = "C" Then
    CCC = Range("Dados!B" & start).Value
    somaC = somaC + Range("Dados!B" & start).Value
    End If
    If Range("Dados!A" & start).Value = "" Then
    DDD = Range("Dados!B" & start).Value
    somaD = somaD + Range("Dados!B" & start).Value
    End If
   
    start = start + 1
   
  Wend
Sheets("Somatória").Range("A2") = "A"
Sheets("Somatória").Range("B2") = somaA
Sheets("Somatória").Range("A3") = "B"
Sheets("Somatória").Range("B3") = somaB
Sheets("Somatória").Range("A4") = "C"
Sheets("Somatória").Range("B4") = somaC
Sheets("Somatória").Range("A5") = "D"
Sheets("Somatória").Range("B5") = somaD

End Sub



Espero que te sirva.

Um abraço
DARTH.