כיצד לשרשר עמודות תאים ולשמור על צבע הטקסט ב-Excel?

כמו שאנו יודעים, כאשר משרשרים או משלבים עמודות תאים לעמודה אחת, עיצוב התא (כמו צבע גופן הטקסט, עיצוב מספרים וכו') יאבד. במאמר זה, אציג כמה טריקים כדי לשלב את עמודות התאים לאחת ולשמור על צבע הטקסט בצורה הכי קלה האפשרית ב-Excel.

שרשור עמודות תאים ושימור צבע גופן הטקסט עם קוד VBA

שרשור עמודות תאים ושימור צבע גופן הטקסט עם קוד VBA

כדי להשלים משימה זו ב-Excel, הקוד VBA הבא עשוי לעזור לכם, אנא עשו כך:

1. החזיקו את המקשים ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

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. ולאחר מכן לחצו על אישור, קופצת חלונית דו-שיח נוספת, אנא בחרו את התאים שבהם ברצונכם להוציא את התוצאות הממוזגות, ראו צילום מסך:

5. לאחר מכן לחצו על כפתור אישור, העמודות שורשרו מבלי לאבד את צבע הטקסט כפי שמוצג בתמונה הבאה:

פתחו את הקסם של Excel עם Kutools AI

• ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
• נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
• תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
• פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
• תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!