Hvordan fed teksttekst, når sammenkædes to kolonner i Excel?
I Excel-regneark, efter sammenkædning af to celleværdier med formler, kan du muligvis finde ud af, at det ikke vil give en fed del af teksten i den kombinerede formelcelle. Dette kan nogle gange være irriterende, hvordan kunne du fed teksttekst, når du sammenkæder to kolonner i Excel?
Fed deltekst ved sammenkædning af to kolonner med VBA-kode
Fed deltekst ved sammenkædning af to kolonner med VBA-kode
For eksempel har jeg to kolonnedata, nu vil jeg kombinere disse to kolonner i en kolonne og formatere den første værdi med fed som følgende skærmbillede vist:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Fed deltekst ved sammenkædning af to kolonner:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil kombinere og fed, se skærmbillede:
4. Og klik derefter på OK knap, og alle de to ord i rækkerne er kombineret i cellerne ved siden af dataområdet, og det første ord er også fed, se skærmbillede:
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
