Ինչպե՞ս Excel- ում միավորել բջջային սյունները և պահպանել տեքստի գույնը:

Ինչպես մենք բոլորս գիտեինք, բջիջների սյունները մեկ սյունակում միավորելիս կամ միացնելիս բջջի ձևաչափումը (օրինակ `տեքստի տառատեսակի գույնը, համարի ձևաչափումը և այլն) կկորչի: Այս հոդվածում ես կներկայացնեմ որոշ հնարքներ `բջջային սյունները մեկում միավորելու և տեքստի գույնը հնարավորինս հեշտությամբ պահելու համար Excel- ում:

Միացրեք բջիջների սյունները և պահեք տեքստի տառատեսակի գույնը VBA կոդով

Միացրեք բջիջների սյունները և պահեք տեքստի տառատեսակի գույնը VBA կոդով

Excel- ում այս առաջադրանքն ավարտելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Միաձուլված բջիջների սյուններ և պահիր տեքստի գույնը.

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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք համատեղել տեքստի գույնի հետ:

4. Եվ այնուհետեւ կտտացրեք OK, հայտնվեց մեկ այլ երկխոսության պատուհան, խնդրում ենք ընտրել այն բջիջները, որտեղ ցանկանում եք դուրս բերել համակցված արդյունքները, տես նկարի նկարը.

5. Այնուհետեւ կտտացրեք OK կոճակը, սյունակները համակցվել են առանց տեքստի գույնը կորցնելու, ինչպես ցույց է տրված հետևյալ նկարը.