Como posso usar uma macro para agrupar e calcular a média dos valores em uma coluna do Excel?

Question

Sou novo aqui e tenho lutado com a redação de macros. Eu queria saber se alguém poderia me ajudar a fazer / explicar uma macro que poderia ser usada no meu conjunto de dados.

Eu tenho um arquivo do Excel que se parece com isso:

Eubasicamentequeroumamacroquepassepelacoluna"frutas", reconheça que, como uma fruta separada, a média da frescura dessa fruta com base em seu "grupo" e, em seguida, a média e o grupo ao lado da primeira célula de cada grupo.

Eu sinto que essa é uma macro fácil, mas não consigo entender. Como isso pode ser feito?

Obrigado! É apreciado!

    

Answer 1

Esta macro fará o truque

Public Sub itemaverages()
    Dim wks As Worksheet
    Set wks = ActiveSheet
    firstrow = 2
    resultcolumn = 6
    titletext = "AVG"
    resultrow = firstrow
    searching = True
    lastitemname = wks.Cells(firstrow, 1)
    lastitemfresh = wks.Cells(firstrow, 2)
    lastitemgroup = wks.Cells(firstrow, 3)
    itemtotal = lastitemfresh
    therow = firstrow + 1
    While searching
        countitem = 1
        sameitem = True
        While sameitem
            itemname = wks.Cells(therow, 1)
            itemfresh = wks.Cells(therow, 2)
            itemgroup = wks.Cells(therow, 3)
            If itemname <> "" Then
                If (itemname = lastitemname) And (itemgroup = lastitemgroup) Then
                    itemtotal = itemtotal + itemfresh
                    countitem = countitem + 1
                    therow = therow + 1
                    lastitemname = itemname
                    lastitemfresh = itemfresh
                    lastitemgroup = itemgroup
                Else
                    averagename = UCase(lastitemname) & " " & titletext
                    averagefresh = itemtotal / countitem
                    wks.Cells(resultrow, resultcolumn).Value = averagename & " " & averagefresh
                    wks.Cells(resultrow, resultcolumn + 1).Value = lastitemgroup
                    sameitem = False
                    lastitemname = itemname
                    lastitemfresh = itemfresh
                    lastitemgroup = itemgroup
                    itemtotal = itemfresh
                    resultrow = therow
                    therow = therow + 1
                End If
            Else
                sameitem = False
                searching = False
            End If
        Wend
    Wend
    a = MsgBox("Finished", vbInformation)
End Sub

Abra VBA / Macros com Alt + F11, insira um novo módulo em ThisWorkbook e cole este código no lado direito.

As variáveis firstrow e resultcolumn podem ser ajustadas para atender às suas necessidades.