Hoe berekent u het gemiddelde van elke 5 rijen of kolommen in Excel?
Bij het werken met grote datasets in Excel moet u vaak gemiddelden berekenen per groep rijen of kolommen—bijvoorbeeld om de 5 rijen of om de 5 kolommen. U kunt natuurlijk handmatig formules zoals =GEMIDDELDE(A1:A5), =GEMIDDELDE(A6:A10), =GEMIDDELDE(A11:A15), enzovoort invoeren, maar dat wordt al snel onwerkbaar zodra uw lijst honderden of zelfs duizenden cellen telt. Het herhaaldelijk handmatig uitvoeren van deze acties kost niet alleen veel tijd, maar leidt ook gemakkelijk tot fouten. Gelukkig biedt Excel diverse slimme manieren om deze taak te automatiseren, waardoor data-analyse aanzienlijk efficiënter én minder vervelend wordt. In dit artikel bespreken we verschillende praktische methodes om het gemiddelde van elke 5 rijen of kolommen te berekenen—van formule-gebaseerde oplossingen en Excel-add-ins tot VBA-automatisering en draaitabeltechnieken—zodat u altijd de beste aanpak voor uw situatie kunt kiezen.
Gemiddelde van elke 5 rijen of kolommen met formules
Gemiddelde van elke 5 rijen met Kutools voor Excel
Gemiddelde van elke 5 rijen of kolommen met VBA-code
Gemiddelde van elke 5 rijen met Draaitabel
Gemiddelde van elke 5 rijen of kolommen met formules
Als u liever standaard Excel-formules gebruikt, kunt u de berekening voor elke 5 rijen of kolommen automatiseren – zonder add-ins of scripts. Deze aanpak is ideaal voor statische datasets waarin u snel sets van gemiddelden wilt genereren ter ondersteuning van uw analyse. Zorg er wel voor dat u uw gegevens correct verwijst en eventuele lege of onregelmatige intervallen adequaat afhandelt.
Het volgende voorbeeld laat zien hoe u het gemiddelde van elke 5 rijen in een kolom berekent:
1. Voer de volgende formule in de eerste cel in waar u het resultaat wilt weergeven (bijvoorbeeld)C2):
=AVERAGE(OFFSET($A$2,(ROW()-ROW($C$2))*5,,5,))Hierbij is A2 de begincel van uw gegevenskolom, C2 de cel voor de formule-uitvoer en 5 het interval (het aantal rijen dat u wilt middelen). Pas deze verwijzingen aan op basis van uw daadwerkelijke dataset.
Nadat u de formule hebt ingevoerd, drukt u op Enter. Het eerste gemiddelde resultaat wordt weergegeven. Zie schermafbeelding:
2.Selecteer de formulecel en sleep de vulgreep naar beneden totdat u een foutwaarde tegenkomt (zoals)#DEEL/0! als er minder dan 5 waarden in de resterende gegevens staan). Zo haalt u automatisch de gemiddelden op voor elke groep van 5 rijen. Zie schermafbeelding:
Tips en opmerkingen:U kunt foutafhandelingsfuncties zoals ALS.FOUT()gebruiken om foutwaarden te onderdrukken als uw gegevens niet perfect in groepen passen, bijvoorbeeld:
=IFERROR(AVERAGE(OFFSET($A$2,(ROW()-ROW($C$2))*5,,5,)),"")Om het gemiddelde van elke 5 kolommen in een rij te berekenen, past u de volgende formule toe (plaats in)A3en sleep naar rechts):
=AVERAGE(OFFSET($A$1,,(COLUMNS($A$3:A3)-1)*5,,5))Hierbij is A1 de begincel, A3 uw formule-uitvoercel en 5 het aantal kolommen per groep. Pas de celverwijzingen aan op basis van uw gegevensindeling.
Nadat u de formule hebt ingevoerd en op Enter hebt gedrukt, sleept u de vulgreep naar rechts totdat u een foutwaarde bereikt. Zie schermafbeelding:
Deze formulegebaseerde methode is perfect voor snelle, eenmalige berekeningen of wanneer u liever geen extra hulpmiddelen gebruikt. Als uw gegevens echter van grootte of vorm veranderen, moet u de formules mogelijk aanpassen of de celbereiken handmatig bijwerken, en onvolledige groepen vergen dan extra aandacht.
Gemiddelde van elke 5 rijen met Kutools voor Excel
Kutools voor Excel biedt een handige grafische oplossing als u regelmatig groepen rijen moet middelen, zonder dat u complexe formules hoeft te beheren. Met de functies Voeg paginascheidingen in om de andere rij en Gegevenspagina statistieken segmenteert u uw gegevens razendsnel en berekent u batchgemiddelden met slechts enkele klikken. Deze methode is vooral handig wanneer u gemiddelden over herhaalbare intervallen wilt toepassen én de groepering direct in uw werkblad wilt visualiseren.
Na het downloaden en installeren van Kutools voor Excel, volgt u deze stappen:
1. Klik op KUTOOLS PLUS > Afdrukken > Voeg paginascheidingen in om de andere rij. Zie schermafbeelding:
2. Geef in het dialoogvenster Voeg paginascheidingen in om de andere rijhet interval op (bijvoorbeeld)5) om na elke 5 rijen automatisch een pagina-einde in te voegen. Zo segmenteert Kutools uw gegevens automatisch. Zie schermafbeelding:
3. Klik vervolgens op KUTOOLS PLUS > Afdrukken > Gegevenspagina statistieken. Zie schermafbeelding:
4. Selecteer in het dialoogvenster Gegevenspagina statistieken de kolom(men) die u wilt middelen en kies vervolgens Gemiddelde als berekeningsmethode. Zie schermafbeelding:
5. Klik op OK en Kutools voegt onmiddellijk subtotaalrijen met gemiddelde waarden in op elk interval van 5 rijen. Zie schermafbeelding:
Download nu de gratis proefversie van Kutools voor Excel!
Kutools maakt het eenvoudig om gegevens herhaaldelijk te groeperen en analyseren, zonder dat u formules hoeft aan te passen of scripts hoeft te schrijven. Houd er echter rekening mee dat ingevoegde pagina-einden invloed kunnen hebben op de afdruklay-out en weergaven; verwijder ze daarom na gebruik als ze niet nodig zijn voor uw rapport.
Gemiddelde van elke 5 rijen of kolommen met VBA-code
Als u regelmatig het gemiddelde moet berekenen over een vast aantal rijen of kolommen in grote of continu veranderende datasets, bespaart automatisering met VBA u aanzienlijk handmatig werk. Met VBA doorloopt u uw gegevens, groepeert ze naar wens en geeft het gemiddelde per batch direct weer. Deze aanpak is ideaal voor gevorderde gebruikers of wie dynamische datablokken beheert, en voorkomt dat formules uw werkblad overbelasten. Hieronder vindt u een universele VBA-macro die u eenvoudig kunt aanpassen.
Automatiseer het gemiddelde van elke 5 rijen:
1. Klik op Ontwikkelaar > Visual Basic om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module en plak de onderstaande code in de module:
Sub AverageEvery5Rows()
Dim DataRange As Range
Dim OutputCell As Range
Dim GroupSize As Integer, i As Integer, j As Integer
Dim LastRow As Long, StartRow As Long
Dim SumValue As Double, CountValue As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set DataRange = Application.InputBox("Select the data range to average (single column)", xTitleId, Selection.Address, Type:=8)
Set OutputCell = Application.InputBox("Select the first cell for output", xTitleId, , Type:=8)
GroupSize = Application.InputBox("Enter group size (e.g. 5)", xTitleId, 5, Type:=1)
On Error GoTo 0
If DataRange Is Nothing Or OutputCell Is Nothing Then Exit Sub
LastRow = DataRange.Rows.Count
StartRow = 1
i = 0
Do While StartRow <= LastRow
SumValue = 0
CountValue = 0
For j = 0 To GroupSize - 1
If (StartRow + j) <= LastRow Then
SumValue = SumValue + DataRange.Cells(StartRow + j, 1).Value
CountValue = CountValue + 1
End If
Next j
If CountValue > 0 Then
OutputCell.Offset(i, 0).Value = SumValue / CountValue
Else
OutputCell.Offset(i, 0).Value = ""
End If
StartRow = StartRow + GroupSize
i = i + 1
Loop
End Sub2. Om de code uit te voeren, klikt u op de knop 
of drukt u op F5. Selecteer eerst uw gegevensbereik (één kolom), kies daarna de begincel voor de uitvoer en geef de groepsgrootte op (bijvoorbeeld 5). De macro berekent het gemiddelde voor elke reeks van 5 rijen en toont deze onder elkaar in de opgegeven uitvoerkolom.
U kunt een vergelijkbare macro gebruiken om het gemiddelde van elke vijf kolommen in een rij te berekenen.
Automatiseer het gemiddelde van elke 5 kolommen::
Sub AverageEveryNColumns()
Dim DataRange As Range
Dim OutputCell As Range
Dim GroupSize As Long
Dim totalCols As Long, totalRows As Long
Dim startCol As Long, endCol As Long, outCol As Long
Dim v As Variant
Dim r As Long, c As Long
Dim sumVal As Double, cntVal As Long
Dim xTitleId As String
xTitleId = "KutoolsforExcel"
On Error Resume Next
Set DataRange = Application.InputBox("Select the data range (single rows)", _
xTitleId, Selection.Address, Type:=8)
Set OutputCell = Application.InputBox("Select the first cell for output (results will spill to the right)", _
xTitleId, , Type:=8)
GroupSize = Application.InputBox("Enter group size (e.g. 5)", xTitleId, 5, Type:=1)
On Error GoTo 0
If DataRange Is Nothing Or OutputCell Is Nothing Then Exit Sub
If GroupSize < 1 Then
MsgBox "Group size must be >= 1.", vbExclamation
Exit Sub
End If
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim prevCalc As XlCalculation
prevCalc = Application.Calculation
Application.Calculation = xlCalculationManual
totalCols = DataRange.Columns.Count
totalRows = DataRange.Rows.Count
v = DataRange.Value
outCol = 0
For startCol = 1 To totalCols Step GroupSize
endCol = startCol + GroupSize - 1
If endCol > totalCols Then endCol = totalCols
sumVal = 0
cntVal = 0
For r = 1 To totalRows
For c = startCol To endCol
If Not IsEmpty(v(r, c)) Then
If IsNumeric(v(r, c)) Then
sumVal = sumVal + CDbl(v(r, c))
cntVal = cntVal + 1
End If
End If
Next c
Next r
If cntVal > 0 Then
OutputCell.Offset(0, outCol).Value = sumVal / cntVal
Else
OutputCell.Offset(0, outCol).Value = ""
End If
outCol = outCol + 1
Next startCol
CleanExit:
Application.Calculation = prevCalc
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Gemiddelde van elke 5 rijen met Draaitabel
Een andere praktische manier om groepsgemiddelden van elke 5 rijen te berekenen, is met een draaitabel in combinatie met een reeksnummer- of indexkolom om de gegevens te groeperen. Deze methode is vooral handig voor gebruikers die werken met gestructureerde, tabelgebaseerde gegevens en snel een interactieve samenvatting nodig hebben, zonder formules te schrijven of add-ins te gebruiken. Een draaitabel past zich dynamisch aan bij wijzigingen in de gegevens en ondersteunt flexibele groepering – ideaal voor grote datasets of regelmatige rapportagetaken.
Zo voert u deze bewerking uit met een hulpkolom en een Draaitabel:
1.Voeg naast uw gegevens een kolom „Index” of „Groep” toe om elke groep van 5 rijen te markeren. Voer in de eerste gegevensrij ()B2) het volgende in:
=INT((ROW()-ROW($A$2))/5)+1Deze formule nummert elke rij sequentieel en wijst elk groepje van vijf rijen hetzelfde groepsnummer toe. Sleep de formule omlaag, naast uw gegevensset.
2. Selecteer uw gegevens en de nieuwe indexkolom en klik vervolgens op Invoegen > PivotTable. Bevestig in het dialoogvenster voor het maken van een PivotTable uw gegevensbereik en kies waar u de draaitabel wilt plaatsen.
3. Sleep in de nieuw gemaakte veldlijst van de draaitabel het veld „Groep” naar het Rijen-gebied en uw waardeveld (bijvoorbeeld „Verkoop”) naar het Waarden-gebied.
4. Klik op de vervolgkeuzelijst in het Waarden-gebied, kies Waarde Veldinstellingen en selecteer Gemiddelde.
Uw draaitabel toont nu het gemiddelde van elke vijf rijen uit de oorspronkelijke gegevens, handig gegroepeerd met behulp van de hulpkolom.
Belangrijke voordelen van de Draaitabel-methode zijn de flexibiliteit en het eenvoudig bijwerken wanneer uw Brongegevens verandert. Deze methode vereist echter wel een hulpkolom en is mogelijk niet geschikt als de gegevens exact in hun oorspronkelijke opmaak moeten blijven of ongewijzigd moeten blijven.
Gerelateerde artikelen:
Hoe berekent u het gemiddelde van de drie hoogste of laagste waarden in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins