Hur fetstil bara den första raden eller första ordet i cellen i Excel?
I ett Excel-kalkylblad kan det finnas många celler som innehåller flera rader som paragraferades av Alt + Enter-tangenterna. I vissa fall kan du bara behöva fetstil den första raden i dessa celler. Eller bara fetstil det första ordet för att göra det enastående i celler. Den här artikeln visar två metoder för dig att uppnå det i detalj.
Fet endast den första raden i cellen med VBA-kod Fet endast det första ordet i cellen med VBA-kod
Fet endast den första raden i cellen med VBA-kod
Följande VBA-kod kan hjälpa dig att snabbt bara fetstil den första raden i valda celler. Gör så här.
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra in nedanstående VBA-kod i modulfönstret.
VBA-kod: Fet endast den första raden i celler
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub
3. tryck på F5 för att köra koden. Då en Kutools för Excel dialogrutan dyker upp, välj intervallet med den första raden du behöver för att göra det fet och klicka sedan på OK knapp.
Då kan du se att alla första raderna i valda celler är djärva omedelbart som nedan visas skärmdump.
Fet endast det första ordet i cellen med VBA-kod
Som nedan visas skärmdump, ibland måste du bara fetstil det första ordet bara i intervall A2: A4 i Excel. Du kan uppnå det enligt följande steg för steg.
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra in nedanstående VBA-kod i modulfönstret.
VBA-kod: Fet endast det första ordet i celler
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub
3. tryck på F5 för att köra koden. I pop-up Kutools för Excel välj det intervall som du vill göra det första ordet fet och tryck sedan på OK knapp. Se skärmdump:
Då kan du se alla första ord i valda celler är fetstil omedelbart enligt nedanstående skärmdump.
Relaterad artikel:
Bästa kontorsproduktivitetsverktyg
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...
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!