Hoe snel de positie van de eerste hoofdletter in een Excel-tekststring vinden?
Stel dat er een lijst is met tekststrings die gemengd zijn met cijfers, hoofdletters en kleine letters, hoe kun je dan snel de positie van de eerste hoofdletter in de strings vinden? In dit artikel introduceer ik trucs die snel de positie van de eerste hoofdletter kunnen specificeren zonder ze handmatig één voor één te tellen in Excel.
Zoek de positie van de eerste hoofdletter in een string met een formule
Zoek de positie van de eerste hoofdletter in een string met een gedefinieerde functie
Verander alle letters naar HOOFDLETTERS of Eerste Letter Hoofdletter met Kutools voor Excel 
Zoek de positie van de eerste hoofdletter in een string met een formule
Hier is een formule die u kan helpen om snel de positie van de eerste hoofdletter in een string te vinden. Doe het volgende:
Selecteer een lege cel naast de string waarin u de eerste hoofdletter wilt vinden, bijvoorbeeld B1, voer deze formule in =MIN(INDIEN(ISFOUT(VIND.SPEC(TEKEN(RIJ(INDIRECT("65:90"))),A1)),'',VIND.SPEC(TEKEN(RIJ(INDIRECT("65:90"))),A1)))
Druk op Shift + Ctrl + Enter toets om het juiste resultaat te krijgen, en sleep vervolgens de automatische vulhendel over de cellen waaraan u deze formule wilt toepassen. Zie screenshot:
Zoek de positie van de eerste hoofdletter in een string met een gedefinieerde functie
Behalve met een formule kunt u ook een gedefinieerde functie gebruiken om de positie van de eerste hoofdletter in de string te vinden.
1. Open het werkblad dat de string bevat waarin u de hoofdletter wilt vinden, en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik met de rechtermuisknop op het werkblad waarin u de code wilt gebruiken in het Projectverkenningvenster, en klik op Invoegen > Module, en plak de onderstaande code in het lege modulescript. Zie screenshot:
Code: Zoek de positie van de eerste hoofdletter in een string.
Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
Dim xStr As String
Dim I As Integer
Application.Volatile
GetFirstUpper = -1
On Error Resume Next
xStr = Trim(Rg.Value)
For I = 1 To Len(xStr)
If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
GetFirstUpper = I
Exit Function
End If
Next
End Function
3. Sla de code op en ga terug naar het werkblad dat u gebruikt, en selecteer een lege cel naast de string waarin u de hoofdletter wilt vinden, voer deze formule in =GetFirstUpper(F1), druk op Enter toets, en sleep vervolgens de automatische vulhendel over de cellen waarop u deze formule wilt toepassen. Zie screenshot:
Tip: Als er geen hoofdletter in de string staat, wordt het resultaat weergegeven als -1.
Verander alle letters naar HOOFDLETTERS of Eerste letter hoofdletter met Kutools voor Excel
In normaal Excel-werk moet u vaak letterstrings veranderen naar HOOFDLETTERS, Eerste letter hoofdletter, kleine letters, zinsbegin met hoofdletter of OmGeKeErDe HoOfDlEtTeRs zoals in onderstaande schermafbeelding te zien is.
Met Kutools voor Excel kunt u het hulpprogramma Hoofdlettergebruik wijzigen gebruiken om snel de letterhoofdletters te veranderen zoals u nodig hebt.
Na gratis installatie Kutools voor Excel, doe het volgende:
1. Selecteer de strings waarvan u de lettertypes wilt veranderen, en klik op Kutools > Tekst > Hoofdlettergebruik wijzigen. Zie screenshot:
2. Vervolgens in het pop-up Hoofdlettergebruik wijzigen dialoogvenster, vink de optie aan die u wilt in de Type wijzigen sectie, en u kunt het resultaat bekijken in het Voorbeeldvenster. Zie screenshot:
3. Klik vervolgens op OK of Toepassen om de hoofdlettergebruik te veranderen.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen