如何根據excel中另一個工作表單元格值的特定值填充單元格背景顏色？

Question

如何根據excel中另一個工作表單元格值的特定值填充單元格背景顏色？

我想根據 Sheet1 單元格值填充 sheet2 單元格。

第 1 頁

第 2 頁

例如，在 sheet1 值 4 中缺少這樣，不需要像那樣填充包含值 04 的 sheet2 單元格。

請幫我。

Answer 1

試一下：

Sub test()

    Dim rng1 As Range, rng2 As Range, cell As Range, rngFound As Range
    Dim ws1 As Worksheet, ws2 As Worksheet

    With ThisWorkbook
        Set ws1 = .Worksheets("Sheet1")
        Set ws2 = .Worksheets("Sheet2")
    End With

    With ws1
        Set rng1 = .Range("A1:R1")
    End With

    With ws2

        Set rng2 = .Range("A1:E5")

        For Each cell In rng2

            Set rngFound = rng1.Find(cell.Value, LookIn:=xlValues, Lookat:=xlWhole)

            If Not rngFound Is Nothing Then

                cell.Interior.ColorIndex = rngFound.Interior.ColorIndex

            End If

        Next cell

    End With

End Sub