Hoe snel de positie van de eerste hoofdletter in de Excel-tekenreeks vinden?
Stel dat er een lijst is met tekstreeksen gemengd met cijfers, hoofdletters en kleine letters, hoe kunt u dan snel de positie van de eerste hoofdletter uit de tekenreeksen vinden? In dit artikel introduceer ik de trucs die snel de positie van de eerste hoofdletter kunnen specificeren zonder ze een voor een handmatig in Excel te tellen.
Zoek de positie van de eerste hoofdletter in de tekenreeks met de formule
Zoek de positie van de eerste hoofdletter in de tekenreeks met gedefinieerde functie
Verander alle letters in HOOFDLETTERS of Juiste zaak met Kutools voor Excel 
Zoek de positie van de eerste hoofdletter in de tekenreeks met de formule
Hier is een formule waarmee u snel de positie van de eerste hoofdletter uit de tekenreeks kunt vinden, doe dit als volgt:
Selecteer een lege cel naast de tekenreeks waarvan u de eerste hoofdletter wilt zoeken, bijvoorbeeld B1, voer deze formule in =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))
Media Shift+Ctrl+Enter toets om het juiste resultaat te krijgen en sleep vervolgens de automatische vulgreep over de cellen die nodig zijn om deze formule toe te passen. Zie screenshot:
Zoek de positie van de eerste hoofdletter in de tekenreeks met gedefinieerde functie
Behalve de formule, kunt u ook de gedefinieerde functie gebruiken om de positie van de eerste hoofdletter in de tekenreeks te achterhalen.
1. Schakel het blad in dat de tekenreeks bevat die u in hoofdletters wilt zoeken, en druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. Klik met de rechtermuisknop op het blad waarin u de code wilt gebruiken Project verkennen paneel en klik op Invoegen > Moduleen plak onderstaande code in het lege modulescript. Zie screenshot:
Code: zoek de positie van de eerste hoofdletter uit de tekenreeks.
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 blad dat u gebruikt, en selecteer een lege cel naast de tekenreeks die u in hoofdletters wilt zoeken, voer deze formule in = GetFirstUpper (F1), druk op Enter key en sleep vervolgens de hendel voor automatisch aanvullen over de cellen die deze formule nodig hadden. Zie screenshot:
Tip: Als de tekenreeks geen hoofdletters bevat, wordt het resultaat weergegeven als -1.
Verander alle letters in HOOFDLETTERS of Juiste letters met Kutools voor Excel
In het algemeen Excel-werk, kan het zijn dat u letterreeksen moet wijzigen in HOOFDLETTERS, Juiste Case, kleine letters, Zin case of ToGgLe CaSe, zoals onderstaand screenshot.
met Kutools voor Excel, je kunt het toepassen Wijzig zaak hulpprogramma om de hoofdletter snel naar behoefte te veranderen.
| Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. Selecteer de strings waarvan u hun hoofdlettergebruik wilt wijzigen en klik op Kutools > Tekst > Wijzig zaak. Zie screenshot:
2. Dan in de popping Wijzig zaak dialoogvenster, vink de gewenste optie aan in het Van type veranderen sectie, en u kunt een voorbeeld van het veranderende resultaat bekijken in het Voorbeeld-paneel. Zie screenshot:
3. Dan klikken Ok or Solliciteer om van hoofdletter te veranderen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!
