條件格式和文本：根據條件，我想復制另一個單元格的格式

Question

在Excel中

我正在嘗試根據某些條件復制另一個單元格的元素和單元格格式。

G12 =（如果C10 = C11，*留空，如果（C10> C11，*復制B10的元素和格式，*復制B11的元素和格式））

我已經嘗試過此功能，並且在復制元素方面取得了成功，但是無法更改格式。 我用了：

= IF（$ C $ 10 = $ C $ 11，“”，IF（$ C $ 10> $ C $ 11，B10，B11））

我了解了條件格式設置，但是沒有看到根據某種條件復制另一個單元格格式的方法。 必須指定顏色。

謝謝您的幫助！

tl：dr

三月瘋狂的例子

弗吉尼亞擊敗UNC 76至75

我想將“復制（1）弗吉尼亞”復制到帶有石灰綠色背景的括號中的下一個位置。 如果UNC獲勝，我想將（16）UNC和玫瑰色復制到下一個括號中

Answer 1

轉到vb-editor（Alt + F11），插入新模塊並粘貼以下代碼：

Function RangeSelectionPrompt(txt As String) As Range
    Dim rng As Range
    Set rng = Application.InputBox(txt, "Select a range", Type:=8)

    Set RangeSelectionPrompt = rng
End Function

Sub FormatAs()

    Dim Sh As Worksheet
    Dim r1 As Range, r2 As Range
    Dim txt1 As String, txt2 As String
    Dim cel As Range, Col As Range
    Dim Val, check As Long, pos As Long

    Set Sh = ActiveSheet

    txt1 = "Enter Range #1 - sourse"
    txt2 = "Enter Range #2 - to paste formats"

    Set r1 = Intersect(RangeSelectionPrompt(txt1), Sh.UsedRange)
    Set r2 = Intersect(RangeSelectionPrompt(txt1), Sh.UsedRange)


    For Each cel In r2.Cells

        Val = cel.Value

        If Val <> "" Then

            For Each Col In r1.Columns

                check = WorksheetFunction.CountIf(Col, Val)

                If check > 0 Then
                    pos = WorksheetFunction.Match(Val, Col, 0)

                    Col.Cells(pos, 1).Copy
                    cel.PasteSpecial Paste:=xlPasteFormats

                End If

            Next Col

        End If

    Next cel

End Sub

運行一次即可復制格式。 您需要定義兩個范圍：

來源范圍（A：B）和粘貼范圍（F：G）