Могу ли я установить цвет / формат с помощью & -оператора в Excel? - PullRequest
0 голосов
/ 20 июня 2019

У меня есть Excel-документ, который выглядит так

A       B        
apple   banana   
banana  fig

и я хочу это в результате.

A       B        C 
apple   banana   applebanana
banana  fig      bananafig

НО я хочу, чтобы Excel сохранил исходные цвета .

Используя C1 = A1 и B1, я мог бы добиться этого enter image description here

Используя пример с фруктами: Результат для «applebanana» написан в стандартном формате. Но я хочу, чтобы столбец C сохранял цвета A и B:

Слово «яблоко» всегда красное, а «банан» всегда написано желтым. И моим желаемым результатом в C1 было бы «applebanana», НО с буквами «apple» в красном и «banana» -частью в желтом.

Возможно ли это в Excel? Я ничего не смог найти в сети.

1 Ответ

0 голосов
/ 20 июня 2019

Попробуйте вместо этого макрос, например:

Sub Test()

Dim X As Long, Y As Long, CLR1 As Long, CLR2 As Long
With ThisWorkbook.Sheets("Sheet1") '<Change accordingly
    For X = 1 To .Range("B" & Rows.Count).End(xlUp).Row
        CLR1 = .Cells(X, 1).Font.ColorIndex
        CLR2 = .Cells(X, 2).Font.ColorIndex
        .Cells(X, 3) = .Cells(X, 1) & .Cells(X, 2)
        With .Cells(X, 3)
            For Y = 1 To .Characters.Count
                If Y > Len(ThisWorkbook.Sheets("Sheet1").Cells(X, 1)) Then
                    .Characters(Y, 1).Font.ColorIndex = CLR2
                Else
                    .Characters(Y, 1).Font.ColorIndex = CLR1
                End If
            Next Y
        End With
    Next X
End With

End Sub

enter image description here

...