Note: The other languages of the website are Google-translated. Back to English

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:


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.
kte-flik 201905

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!
officetab botten
Sortera kommentarer efter
Kommentarer (7)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Vad sägs om om jag vill att den andra raden ska vara fet?
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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Vad sägs om om jag vill att de tre första orden ska vara fetstilta?
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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, vad sägs om om jag vill att de två första raderna ska vara fetstilta?
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
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?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL