Conas colúin chill a chomhchuibhiú agus dath an téacs a choinneáil in Excel?
Mar is eol dúinn uile, agus iad ag teacht le chéile nó ag comhcheangal colúin cille in aon cholún amháin, caillfear formáidiú na gceall (mar shampla dath cló téacs, formáidiú uimhreacha, srl). An t-alt seo, tabharfaidh mé roinnt cleasanna isteach chun na colúin chill a chomhcheangal i gceann amháin agus dath an téacs a choinneáil chomh héasca agus is féidir in Excel.
Comhchruinnigh colúin cille agus coinnigh dath cló téacs le cód VBA
Comhchruinnigh colúin cille agus coinnigh dath cló téacs le cód VBA
Chun an tasc seo a chríochnú in Excel, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit, déan é seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: colúin cealla comhtháthaithe agus dath an téacs a choinneáil:
Sub MergeFormatCell()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xRgEachRow As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim I As Integer
Dim xRgLen As Integer
Dim xSRgRows As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select cell columns to concatenate:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
xSRgRows = xSRg.Rows.Count
Set xDRg = Application.InputBox("Please select cells to output the result:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRgRows
xRgLen = 1
With xDRg.Offset(I - 1)
.Value = vbNullString
.ClearFormats
.NumberFormat = "@"
Set xRgEachRow = xSRg(1).Offset(I - 1).Resize(1, xSRg.Columns.Count)
For Each xRgEach In xRgEachRow
.Value = .Value & Trim(xRgEach.Value) & " "
Next
For Each xRgEach In xRgEachRow
xRgVal = xRgEach.Value
With .Characters(xRgLen, Len(Trim(xRgVal))).Font
.Name = xRgEach.Font.Name
.FontStyle = xRgEach.Font.FontStyle
.Size = xRgEach.Font.Size
.Strikethrough = xRgEach.Font.Strikethrough
.Superscript = xRgEach.Font.Superscript
.Subscript = xRgEach.Font.Subscript
.OutlineFont = xRgEach.Font.OutlineFont
.Shadow = xRgEach.Font.Shadow
.Underline = xRgEach.Font.Underline
.ColorIndex = xRgEach.Font.ColorIndex
End With
xRgLen = xRgLen + Len(Trim(xRgVal)) + 1
Next
End With
Next I
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a chomhcheangal le dath an téacs a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK, tá bosca dialóige eile le feiceáil, roghnaigh na cealla inar mian leat na torthaí comhcheangailte a aschur, féach an scáileán:
5. Ansin cliceáil OK cnaipe, tá na colúin curtha i dtoll a chéile gan dath an téacs a chailleadh mar a leanas an pictiúr a thaispeántar:

Díghlasáil Draíocht Excel le Kutools AI
- Forghníomhú Cliste: Oibríochtaí cille a dhéanamh, sonraí a anailísiú, agus cairteacha a chruthú - iad uile tiomáinte ag orduithe simplí.
- Foirmlí Saincheaptha: Gin foirmlí oiriúnaithe chun do shreafaí oibre a shruthlíniú.
- Códú VBA: Scríobh agus cuir i bhfeidhm cód VBA gan stró.
- Léiriú Foirmle: Foirmlí casta a thuiscint gan stró.
- Aistriúchán Téacs: Briseadh bacainní teanga laistigh de do scarbhileoga.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre i bhfad níos éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!