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

Sut i gyd-fynd â cholofnau celloedd a chadw lliw testun yn Excel?

Fel y gwyddom i gyd, wrth gyd-daro neu gyfuno colofnau celloedd yn un golofn, collir fformatio'r gell (megis lliw ffont testun, fformatio rhifau, ac ati). Yr erthygl hon, byddaf yn cyflwyno rhai triciau i gyfuno'r colofnau celloedd yn un a chadw lliw'r testun mor hawdd â phosibl yn Excel.

Concatenate colofnau celloedd a chadw lliw ffont testun gyda chod VBA


Concatenate colofnau celloedd a chadw lliw ffont testun gyda chod VBA


I orffen y dasg hon yn Excel, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: cyd-fynd â cholofnau celloedd a chadw lliw testun:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei chyfuno â lliw testun, gweler y screenshot:

4. Ac yna cliciwch OK, mae blwch deialog arall yn ymddangos, dewiswch y celloedd lle rydych chi am allbynnu'r canlyniadau cyfun, gweler y screenshot:

5. Yna cliciwch OK botwm, mae'r colofnau wedi'u cyd-daro heb golli lliw'r testun fel y dangosir y llun a ganlyn:

Nodyn: Os yw'r data yr oedd angen ei gyfuno yn cynnwys rhifau, yna ni all macro god weithio'n gywir.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn gweithio'n dda iawn. Ond, sut mae ychwanegu gofod cyn neu ar ôl y testun?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Mae'r dulliau hyn yn gweithio'n dda, nes bod xRgLen yn uwch na 255.
Mae'n ymddangos mai beit yw'r paramedr hwn :-(
Sut y gellir goddiweddyd y cyfyngiad hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fantástica la macro de concatenar cadena de texto conservando formato de origen. I mi caso no funcionaba con F5, pero en la pestaña macro, modificar a dewisiadau a ganiateir i fynd i mewn i'r dull ejecucion con CTRL+letra a swyddogaeth y maravilla. Llawer o gracias.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Habría manera de hacerlo con números?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod.
Os oes gan y testun "( )", er enghraifft "tomate (tomates)". Nid yw'n gweithio cystal. A oes rhywbeth i'w addasu er mwyn gweithio gyda " ( ) "?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rah,
Sut wyt ti? Os oes gan y testun "( )", nid oes angen i ni newid y cod VBA. Gweler y sgrin, gellir cyfuno'r testun "tomato (tomatos)" yn llwyddiannus â cholofnau celloedd eraill yn un golofn. Gobeithio y gallai fod o gymorth i chi.
Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am y cod!
A ellir ei diweddaru'n awtomatig y golofn concatenate os bydd unrhyw newid yn gwneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kathy,
Mae'n ddrwg gennym, ar hyn o bryd, nid oes ffordd dda o wneud hynny, mae angen i chi redeg y cod eto ar ôl newid cynnwys y gell. 😂
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Iawn, diolch am eich ateb
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir