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

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
            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:

nótaí: Má tá uimhreacha sna sonraí a bhí le comhcheangal, ní féidir le macra-chód oibriú i gceart.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair 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á!
bun officetab
Sórtáil tuairimí de réir
Comments (9)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód seo go han-mhaith. Ach, conas a chuirim spás roimh an téacs nó ina dhiaidh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Oibríonn na modhanna seo go maith, go dtí go bhfuil xRgLen níos airde ná 255.
Breathnaíonn sé gur beart é an paraiméadar seo :-(
Conas is féidir an teorannú seo a shárú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fantach la macra concatenar cadena de texto conservando formato de origen. I gcás ina bhfuil aon fheidhm le F5, ach amháin le haghaidh an macra, modhnuithe agus roghanna agus cead isteach sa modh ejecucion le CTRL+letra agus feidhmeanna an maravilla. Go raibh mile maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Habría manera de hacerlo con números?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcód.
Má tá "( )" sa téacs, mar shampla "tomate (tomates)". Ní oibríonn sé chomh maith. An bhfuil rud éigin a mhodhnú chun oibriú le "( ) "?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Rá,
Conas tá tú? Má tá "( )" ag an téacs, ní gá dúinn an cód VBA a athrú. Féach ar an screenshot le do thoil, is féidir an téacs "trátaí (trátaí)" a chomhcheangal go rathúil le colúin cille eile i gcolún amháin. Tá súil agam go gcuideoidh sé leat.
Le meas,
Mandy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as an gcód!
An féidir an colún comhcheangailte a nuashonrú go huathoibríoch má dhéantar aon athrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi, Kathy,
Tá brón orm, faoi láthair, níl aon bhealach maith chun é sin a dhéanamh, ní mór duit an cód a rith arís tar éis an t-ábhar cille a athrú. 😂
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ceart go leor, go raibh maith agat as do fhreagra
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL