Hoppa till huvudinnehåll

Hur konverterar / ändrar jag snabbt text till versaler i Microsoft Excel?

Den här artikeln kommer att prata om några tips om hur du enkelt ändrar textsträngar till alla stora bokstäver i Microsoft Excel.

Om du antar att du måste ändra textsträngar i A1: A5 till stora bokstäver, se följande skärmdumpar:


pil blå höger bubbla Ändra textsträngar till versaler i Excel med UPPER-funktionen

Att använda Microsoft Excels övre funktion är lätt att ändra textsträngar till stora bokstäver i en cell.

ange = ÖVRE (A1) i Cell C1 och tryck på Enter. Sedan kopieras innehållet i "ändra fall" i Cell A1 och ändras till "CHANGE CASE" i Cell C1. Se skärmdump:

Välj Cell C1 och du kan kopiera formeln till andra celler genom att dra i nedre högra hörnet och släppa ner till andra celler.


pil blå höger bubbla Ändra textsträngar till versaler i Excel med VBA

Det finns en VBA-kod som kan hjälpa dig att ändra textsträngen till versaler i Excel.

1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.

2. Klicka på i fönstret Insert > Modulerna för att visa ett nytt modulfönster och kopiera sedan följande VBA-kod till modulfönstret.

VBA: Ändra textsträng till versaler i Excel.

Sub UCase()
'Upadateby20140701
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.UCase(Rng.Value)
Next
End Sub

3. Klicka sedan Körning knappen, och en dialogruta dyker upp för dig att välja ett område för att ändra textsträng till versaler. Se skärmdump:

4. När du har valt klickar du på OK. Hela textsträngen i markeringen ändras till versaler.


pil blå höger bubbla Ändra textsträngar till versaler i Excel med Kutools för Excel

Kutools för Excel's Ändra ärende verktyget kan hjälpa dig alla textsträngar eller bokstäver till stora bokstäver i en rad Microsoft Excel.

Kutools för Excel innehåller mer än 100 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

Steg 1: Välj det område där du vill ändra textsträngar till stora bokstäver.

Steg 2: Klicka på Kutools > Textverktyg > Ändra ärende .... Se skärmdump:

Steg 3: In Ändra ärende dialogrutan, kolla på ÖVRIGA FALL alternativet och klicka på OK or Ansök knapp. Se skärmdump:

Då ser du att alla textsträngar i valet ändras till stora bokstäver. Se skärmdump:

Kutools för Excel's Ändra ärende verktyget kan snabbt ändra textfodralet till ÖVRE, LÄGRE, GODKÄNT, Meningstecken och TOGGLE-FODRAL. Klicka för att veta mer ...


Relativa artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA was freaking awesome thanks a lot :lol: .
This comment was minimized by the moderator on the site
This is one the ways that i know it could be done with VBA Sub UPPER () Dim Addrr As Atring Addr = Intersect(ActiveSheet.UsedRange, Selection).Address Range(Addr) = _ Evaluate("IF(LEN(" & Addr & "),UPPER(" & Addr & "),"""")") End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations