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

Fantastisk! Använda effektiva flikar i Excel som Chrome, Firefox och Safari!

Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

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:

Hur tar jag bort alla tomma rader eller bara den första raden i cellen i Excel?

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp...

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!

Läs mer... Gratis nedladdning... Köp...

Kommentarer (7)

Inga betyg än. Bli först med att betygsätta!

Excelnybörjare

ca 5 år sedan

#21799

Denna kommentar minimerades av moderatoren på webbplatsen

Vad sägs om om jag vill att den andra raden ska vara fet?

Svara

kristall Excelnybörjare

ca 5 år sedan

#21800

Denna kommentar minimerades av moderatoren på webbplatsen

God dag!
Om du bara vill markera den andra raden i cellen i fetstil, försök med följande VBA-kod:

Sub BoldSecondLine()
Dim xRng As Range, xCell As Range
Dim xArr
On Error Resume Next
Set xRng = Application.InputBox("Välj intervall:", "Kutools för", Selection.Address, , , , , 8)
Om xRng är ingenting, avsluta Sub
För varje xCell In xRng
Om xCell <> "" Då
Med xCell
xArr = Split(xCell, Chr(10))
.Characters(InStr(.Value, Chr(10)) + 1, Len(xArr(1))).Font.Bold = True
Sluta med
End If
Nästa
End Sub

Svara

Report

bc kristall

ca 5 år sedan

#21801

Denna kommentar minimerades av moderatoren på webbplatsen

Hej, Vad sägs om om jag vill att de tre första orden ska vara fetstilta?

Svara

kristall bc

ca 5 år sedan

#21802

Denna kommentar minimerades av moderatoren på webbplatsen

God dag,
Försök nedan VBA-skript.

Sub boldtext()
Dim xRng As Range, xCell As Range
Dim xNum As Long, xCount As Long
Dim I As Long, J As Long
Dim xArr
Dim xArrChr10
On Error Resume Next
Set xRng = Application.InputBox("Välj intervall:", "Kutools från Excel", Selection.Address, , , , , 8)
Om xRng är ingenting, avsluta Sub
För varje xCell In xRng
xNum = 0
xCount = 0
xArrChr10 = Split(xCell.Value, Chr(10))
För I = 0 Till UBound(xArrChr10)
xArr = Split(xArrChr10(I))
För J = 0 Till UBound(xArr)
Om xArr(J) <> "" Då
xCount = xCount + 1
Om xCount > 3 Avsluta sedan för
End If
xNum = xNum + Len(xArr(J)) + 1
Nästa
Nästa
xCell.Characters(1, xNum).Font.Bold = True
Nästa
End Sub

Svara

Report

jac kristall

ca 4 år sedan

#21803

Denna kommentar minimerades av moderatoren på webbplatsen

Hej, vad sägs om om jag vill att de två första raderna ska vara fetstilta?

Svara

ritu

ca 2 år sedan

#32284

Denna kommentar minimerades av moderatoren på webbplatsen

Hej jag har en hel del rader i en cell. Jag vill göra 5:e raden med fet stil och kursiv stil i en cell. Koden nedan gör endast den första raden. Kan du hjälpa

Sub bold()

Dim r As Range, c As Range
Dim ws As Arbetsblad

Ställ in ws = ActiveSheet
Ange r = ws.Range("Y:Y")
För varje c I r
Med c
.Font.bold = Falskt
.Value = .Text
.Characters(1, InStr(.Text, vbLf) - 1). Font.bold = True
Sluta med

Nästa c

End Sub

Svara

Hulling

ca 2 år sedan

#32782

Denna kommentar minimerades av moderatoren på webbplatsen

Hej. Jag har många celler som innehåller flera rader som var indelade i stycken med Alt+Enter. Jag skulle vilja göra fetstil och ändra färgen på det första ordet i varje rad. Kan du hjälpa till?

Svara

Det finns inga kommentarer här ännu

Lämna dina kommentarer

Postar som gäst

Logga in

Namn (Krävs)

E-post (Obligatoriskt)

Betygsätt detta inlägg:

Återställa

0 Tecken

Jag godkänner termer och villkor