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. 확인 버튼을 클릭하면, 아래 스크린샷과 같이 텍스트 색상을 잃지 않고 열이 연결됩니다:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!