Excel vba 使用 vlookup 復制單元格的顏色

Question

我需要使用 VLOOKUP 來復制單元格的顏色（不是 CF）。 我試圖按照 LondonRob 在Vlookup的線程中發布的 vba 代碼復制單元格的顏色 - Excel VBA，但由於不精通 vba，因此遇到了麻煩。 需要 Vlookup，因為 Names 可以按不同的順序排列。

我有一個示例工作表，其中需要根據名稱和列號的查找將單元格顏色從第一個選項卡復制到第二個選項卡。 我設置了 srcCell 和 destCell 命名范圍並將發布的 vba 復制到模塊中。

第一個標簽

名稱 Amt1

Kathy $500（電池顏色為紅色）

標記 $350（單元格顏色為綠色）

第二個標簽

名稱 Amt1 Amt2

標記 $350 $200（綠色單元格顏色需要 $350）

Kathy 500 美元 400 美元（需要 500 美元的紅細胞顏色）

任何人都可以幫忙嗎？

Answer 1

如果您無法理解以下解決方案： Vlookup to copy color of a cell - Excel VBA ，您可以試試這個：

默認情況下，它只是使用Match來查找和復制具有值和格式的單元格。

第一個標簽：

第二個標簽：

運行宏后的 SecondTab：

Sub copy_paste_with_format()

    Dim i As Long
    Dim var As Variant

    Dim FirstTab As Worksheet
    Dim SecondTab As Worksheet

    Set FirstTab = Application.Worksheets("FirstTab")
    Set SecondTab = Application.Worksheets("SecondTab")

    For i = 2 To 3
        var = Application.Match(SecondTab.Range("A" & i), FirstTab.Range("A:A"), 0)
        If Not IsError(var) Then
            FirstTab.Range("B" & var).Copy SecondTab.Range("B" & i)
        End If
    Next i

End Sub