Przejdź do głównej zawartości

Jak szybko przekonwertować / zmienić tekst na wielkie litery w programie Microsoft Excel?

W tym artykule omówimy kilka wskazówek, jak łatwo zmienić ciągi tekstowe na wszystkie wielkie litery w programie Microsoft Excel.

Przypuśćmy, że musisz zmienić ciągi tekstowe w A1: A5 na wielkie litery, zobacz następujące zrzuty ekranu:


strzałka niebieski prawy bąbelek Zmień ciągi tekstowe na wielkie litery w programie Excel za pomocą funkcji UPPER

Za pomocą funkcji górnej części programu Microsoft Excel można łatwo zmienić ciągi tekstowe na wielkie litery w jednej komórce.

Wchodzę = UPPER (A1) w komórce C1 i naciśnij klawisz Enter. Następnie zawartość „Zmień wielkość liter” w komórce A1 jest kopiowana i zmieniana na „ZMIEŃ WIELKOŚĆ” w komórce C1. Zobacz zrzut ekranu:

Wybierz komórkę C1 i możesz skopiować formułę do innych komórek, przeciągając w prawym dolnym rogu i upuszczając w dół do innych komórek.


strzałka niebieski prawy bąbelek Zmień ciągi tekstowe na wielkie litery w programie Excel za pomocą VBA

Istnieje kod VBA, który może pomóc w zmianie ciągu tekstowego na wielkie litery w programie Excel.

1. naciśnij Alt + F11 wyświetlić Microsoft Visual Basic for Applications okno.

2. W oknie kliknij wstawka > Moduł aby wyświetlić nowe okno modułu, a następnie skopiuj następujący kod VBA do okna modułu.

VBA: Zmień ciąg tekstowy na wielkie litery w programie 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. Następnie kliknij run i pojawi się okno dialogowe, w którym możesz wybrać zakres, w którym chcesz zamienić tekst na wielkie litery. Zobacz zrzut ekranu:

4. Po wybraniu kliknij OK. Cały tekst w zaznaczeniu zostanie zamieniony na wielkie litery.


strzałka niebieski prawy bąbelek Zmień ciągi tekstowe na wielkie litery w programie Excel za pomocą Kutools for Excel

Kutools dla programu Excel's Zmień wielkość liter narzędzie może pomóc w tworzeniu wszystkich ciągów tekstowych lub liter na wielkie litery w wielu programach Microsoft Excel.

Kutools dla programu Excel zawiera ponad 100 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.

Krok 1: Wybierz zakres, w którym zmienisz ciągi tekstowe na wielkie litery.

Krok 2: Kliknij Kutools > Narzędzia tekstowe > Zmień wielkość liter…. Zobacz zrzut ekranu:

Krok 3: W Zmień wielkość liter w oknie dialogowym, sprawdź DUŻE LITERY opcję i kliknij OK or Aplikuj przycisk. Zobacz zrzut ekranu:

Wtedy zobaczysz, że wszystkie zaznaczone ciągi tekstowe są zamieniane na wielkie litery. Zobacz zrzut ekranu:

Kutools dla programu Excel's Zmień wielkość liter narzędzie może szybko zmienić wielkość liter na UPPER, LOWER, PROPER, Sentence Case i TOGGLE CASE. Kliknij, aby dowiedzieć się więcej…


Względne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

 

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