Jak velké pouze první písmeno v buňkách Excelu?

Pokud máte seznam jmen psát velkými písmeny a potřebujete je změnit tak, aby se s velkými písmeny psalo pouze první písmeno každého slova, Excel nabízí několik řešení. Tento článek vysvětluje tři metody, jak tento úkol zvládnout: pomocí vzorců, VBA nebo Kutools for Excel přidat.

V buňce Excelu se vzorcem pište velké pouze první písmeno
V buňkách Excelu s kódem VBA pište velké pouze první písmeno
Hromadně zvětšujte pouze první písmeno v buňkách aplikace Excel pomocí Kutools for Excel

V buňkách Excelu se vzorcem pište na velké pouze první písmeno

V seznamu se vzorcem můžete převést všechna velká písmena pouze na první velká písmena. Postupujte prosím následovně.

1. Vyberte prázdnou buňku (říká se buňka C2) pro vyhledání převedeného výsledku a zadejte vzorec = SPRÁVNÉ (B2) do řádku vzorců a poté stiskněte vstoupit klíč.

Název psaný velkými písmeny se okamžitě ve sloupci nápovědy převede na správná velká a malá písmena (první písmeno velké).

2. S vybranou buňkou C2 přetáhněte úchyt výplně dolů v seznamu, dokud se nedostanete k buňce, kde chcete převést velikost písmen.

Hodnocení: Ve vzorci změňte odkaz na buňku na základě vašeho seznamu.

V buňkách Excelu s kódem VBA pište velké pouze první písmeno

Kromě toho můžete spustit následující kód VBA a převést všechna velká písmena na správná velká písmena v seznamu.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikaci okno.

2. V Microsoft Visual Basic pro aplikaci okno, klepněte na tlačítko Vložit > Modula poté zkopírujte a vložte pod kód VBA do Modul okno.

Kód VBA: Převést všechny čepice pouze na první čepičku

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Klepněte na tlačítko F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto kódu. Ve vyskakovacím okně Kutools for Excel V dialogovém okně vyberte rozsah, který chcete převést na všechny první, pouze na první a poté klepněte na OK .

Všechna velká písmena ve vybraném rozsahu se okamžitě převedou na správná velká a malá písmena.

Hromadně zvětšujte pouze první písmeno v buňkách aplikace Excel pomocí Kutools for Excel

Tato část vám ukáže Změnit případ užitečnost Kutools for Excel převést všechna víčka na správné pouzdro hromadně pomocí několika kliknutí.

1. Vyberte seznam, který chcete převést, a poté klikněte Kutools > Text > Změnit případ. Viz snímek obrazovky:

2. V Změnit případ V dialogovém okně vyberte Správný případ možnost a poté klikněte na OK .

Všechna velká písmena ve vybraném seznamu jsou okamžitě převedena na správná velká a malá písmena.