Hoe telt u een gehele kolom op in Excel, met uitzondering van de koptekst of eerste rij?
Uw werkblad bevat een lange lijst met waarden, en u voegt regelmatig waarden toe of verwijdert ze uit deze lijst. Hoe kunt u het totaal daarvan automatisch laten optellen in de eerste cel? U wilt nu de gehele kolom optellen, exclusief de koptekst of de eerste rij in Excel.
Optellen van Gehele kolom met uitzondering van koptekst met formule in Excel
Optellen van Gehele kolom met uitzondering van koptekst met functie in Excel
Optellen van Gehele kolom met uitzondering van koptekst met formule in Excel
In Excel is het gebruik van een formule een uitstekende en eenvoudige keuze voor de meeste gebruikers.
Typ in Excel 2007/2010/2013 de volgende formule in de eerste cel van uw lijst:=SOM(A2:A1048576) (waarbij A de kolom is die u wilt optellen) en druk op de Enter-toets op uw toetsenbord. Het totaal van de lijst verschijnt direct in de eerste cel en wordt automatisch bijgewerkt zodra de lijst verandert.
Tip: In Excel 2003 kunt u deze formule gebruiken: =SOM(A2:A65536).
Optellen van Gehele kolom met uitzondering van koptekst met functie in Excel
Met een functie kunt u ook een gehele kolom optellen, exclusief de kopteksten in Excel.
1. Selecteer een cel in de kolom die u wilt selecteren en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het pop-upvenster op Invoegen > Module en plak vervolgens de volgende VBA-code in de module.
VBA: Alleen getal extraheren
Public Function SumColumn(pRng As Range) As Double
'Updateby20140510
Dim xColIndex As Integer
Dim xRowIndex As Integer
Dim ws As Worksheet
Set pRng = pRng.Columns(1)
Set ws = pRng.Parent
xIndex = pRng.Column
xRowIndex = ws.Cells(Rows.Count, xIndex).End(xlUp).Row
Set pRng = ws.Range(ws.Cells(2, xIndex), ws.Cells(xRowIndex, xIndex))
SumColumn = Application.WorksheetFunction.Sum(pRng)
End Function3. Sla de code op en sluit dit venster. Typ daarna in de eerste cel van de lijstkolom deze formule:=SomKolom(A1) (A1 is de eerste cel in de lijstkolom) en druk op de Enter-toets; dan wordt de lijst, met uitzondering van de koptekst, opgeteld.
Tip: Als u de waarden in de lijst wijzigt, vernieuwt u het totaal van de lijstkolom door dubbel te klikken op de formulecel (in ons geval cel A1) en op de Enter-toets te drukken.
Gerelateerd artikel:
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