Cum să găsiți rapid poziția primului majuscul în șirul de text Excel?
Presupunând că există o listă de șiruri de text amestecate cu cifre, majuscule și minuscule, cum puteți găsi rapid poziția primei litere mari din șiruri? În acest articol, introduc trucurile care pot specifica rapid poziția primelor majuscule fără a le număra unul câte unul manual în Excel.
Găsiți poziția primului majuscul în șir cu formula
Găsiți poziția primului majuscul în șir cu funcția definită
Schimbați toate literele cu majuscule sau minuscule cu Kutools pentru Excel 
Găsiți poziția primului majuscul în șir cu formula
Iată o formulă care vă poate ajuta să găsiți rapid poziția primelor majuscule din șir, vă rugăm să faceți cum urmează:
Selectați o celulă goală lângă șirul pe care doriți să găsiți prima majusculă, B1, de exemplu, introduceți această formulă =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))
Anunturi Shift + Ctrl + Enter tasta pentru a obține rezultatul corect, apoi trageți mânerul de umplere automată peste celulele necesare pentru a aplica această formulă. Vedeți captura de ecran:
Găsiți poziția primului majuscul în șir cu funcția definită
Cu excepția formulei, puteți utiliza, de asemenea, funcția definită pentru a afla poziția primelor majuscule din șir.
1. Activați foaia care conține șirul pe care doriți să îl găsiți cu majuscule și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apăsați din nou pe foaia în care doriți să utilizați codul Explorează proiectul și faceți clic pe Insera > Moduleși lipiți codul de mai jos în scriptul gol al modulului. Vedeți captura de ecran:
Cod: Găsiți poziția primului majuscul din șir.
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. Salvați codul și reveniți la foaia pe care o utilizați și selectați o celulă goală lângă șirul pe care doriți să-l găsiți cu majuscule, introduceți această formulă = GetFirstUpper (F1), presa Intrați , apoi trageți mânerul de completare automată peste celule necesare acestei formule. Vedeți captura de ecran:
varful: Dacă nu există majuscule în șir, rezultatul se afișează ca -1.
Schimbați toate literele cu majuscule sau minuscule cu Kutools pentru Excel
În general, în Excel, este posibil să fie necesar să schimbați șirurile de litere în MAJUSCULE, minuscule, minuscule, minuscule sau ToGgLe CaSe, după cum se arată în imaginea de mai jos.
cu Kutools pentru ExceÎl puteți aplica Schimbă cazul utilitar pentru a schimba rapid majusculele, după cum aveți nevoie.
| Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare gratuită Kutools pentru Excel, faceți următoarele:
1. Selectați șirurile pe care doriți să le modificați cazurile și faceți clic Kutools > Text > Schimbă cazul. Vedeți captura de ecran:
2. Apoi în popping Schimbă cazul caseta de dialog, bifați opțiunea dorită în Schimbați tipul secțiunea și puteți previzualiza rezultatul modificat în panoul Previzualizare. Vedeți captura de ecran:
3. Apoi apasa Ok or Aplică pentru a schimba caz.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
