Hoe tel je het aantal woorden in een cel of bereikcellen in Excel?

U kunt het aantal woorden in MS Word gemakkelijk tellen, maar Excel heeft geen ingebouwde tool om het aantal woorden in een werkblad te tellen. U kunt het aantal woorden in Excel echter met de volgende methoden tellen:

Tel het aantal woorden met de formule
Tel het aantal woorden in een enkele cel met door de gebruiker gedefinieerde functies
Tel het aantal woorden in het opgegeven bereik met VBA-code
Tel eenvoudig het aantal woorden met Kutools voor Excel (meerdere klikken)

Tel het aantal woorden met formule

Hier zijn twee formules waarmee u woorden in een enkele cel en in een bereikcellen kunt tellen.

Tel woorden in een enkele cel

Voer deze formule in =IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1) in de Formule balken druk vervolgens op Enter sleutel.

Opmerking:: In de formule is A2 de cel waarin u het aantal woorden zult tellen.

U kunt het resultaat zien zoals hieronder afgebeeld:

Tel woorden in een celbereik met de matrixformule

Als u de woorden in een celbereik wilt tellen, voert u een formule in =SUM(IF(LEN(TRIM(A2:A3))=0,0,LEN(TRIM(A2:A3))-LEN(SUBSTITUTE(A2:A3," ",""))+1)) in de formulebalk en druk vervolgens op Shift + Ctrl + Enter toetsen tegelijkertijd om het resultaat te krijgen. Zie screenshot:

Opmerking:: A2: A3 is het bereik met woorden die u gaat tellen.

Tel het aantal woorden met door de gebruiker gedefinieerde functies

U kunt ook de woorden in een cel tellen met de door de gebruiker gedefinieerde functies, doe dit als volgt:

1. druk op anders + F11 sleutels samen om de te openen Microsoft Visual Basic voor applicaties venster.

2. Klik in de winodw op Invoegen > Module, kopieer en plak vervolgens onderstaande VBA-code in de module. Zie screenshot:

VBA-code: tel het aantal woorden in een cel.

Function intWordCount(rng As Range) As Integer
'Update by Extendoffice 2018/3/7
    intWordCount = UBound(Split(Application.WorksheetFunction.Trim(rng.Value), " "), 1) + 1
End Function

2. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen winodw. Selecteer een lege cel in uw werkblad, voer de formule in "=intwordcount(A2)”In de formulebalk en druk vervolgens op de Enter sleutel om het resultaat te krijgen. Zie screenshot:

Opmerking:: In de formule is A2 de cel waarin u het aantal woorden zult tellen.

Als u het aantal woorden in een bepaald bereik wilt tellen, past u de volgende methode toe.

Tel het aantal woorden in het opgegeven bereik met VBA-code

Met de volgende VBA-code kunt u snel het aantal woorden in een bepaald bereik tellen.

1. druk op anders + F11 sleutels samen om de te openen Microsoft Visual Basic voor applicaties venster.

2. Klik in de winodw op Invoegen > Module, kopieer en plak vervolgens onderstaande VBA-code in de module. Zie screenshot:

VBA-code: tel het aantal woorden in het geselecteerde bereik.

Sub CountWords()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xRgVal As String
    Dim xRgNum As Long
    Dim xNum As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then
        MsgBox "Words In Selection Is: 0", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        xRgVal = Application.WorksheetFunction.Trim(xRgVal)
        If xRgEach.Value <> "" Then
            xNum = Len(xRgVal) - Len(Replace(xRgVal, " ", "")) + 1
            xRgNum = xRgNum + xNum
        End If
    Next xRgEach
    MsgBox "Words In Selection Is: " & Format(xRgNum, "#,##0"), vbOKOnly, "Kutools For Excel"
    Application.ScreenUpdating = True
End Sub

3. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik waarin u het aantal woorden wilt tellen en klik vervolgens op de OK knop. Zie screenshot:

Dan een andere Kutools for Excel dialoogvenster verschijnt om u het totale aantal woorden in het geselecteerde bereik te tonen. Zie screenshot:

Tel het aantal woorden met Kutools voor Excel (alleen klikken)

Yu kunt de Tel woorden binnen bereik nut van Kutools for Excel om eenvoudig het aantal woorden in een cel of bereik te tellen met slechts enkele klikken.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer een cel om het resultaat te retourneren en klik op Kutools > Formule Helper > Formule Helper.

2. In de Formules Helper dialoogvenster, configureer dan als volgt.

• In het Kies een formule vak, selecteer Tel het totale aantal woorden;
  Tips: U kunt de Filteren Voer een sleutelwoord in om de formule snel naar behoefte te filteren.
• In het Bereik geef de cel of het bereik op waarin u het totaal aantal woorden wilt tellen;
• Klik op de OK knop. Zie screenshot:

Vervolgens krijgt u het aantal woorden in een opgegeven cel of bereik.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Tel eenvoudig het aantal woorden met Kutools voor Excel

  Kutools for Excel bevat 300+ krachtige functies voor Microsoft Excel. Gratis te proberen zonder beperking in 30 dagen. Download nu!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...