excel - 将单元格颜色从工作表复制到具有相同单元格值的工作表

Question

这是我第一次在这里发布问题，所以请在我尽力解释我的问题时与我交谈。
我的工作簿中有两张纸，其中 Sheet1 直观地表示了一个有 162 个正方形的托盘中多个单元(A1 到 A162)的位置。
并非所有这些方 block 都被填满，因为有些是空的。
现在表 2 显示了单元 A1 到 A162 的数值。
我使用条件格式为每个值分配颜色。
我试图将 A1 的颜色从 sheet2 复制到具有来自 sheet1 的 A1 值的单元格，但没有成功。
已在此处附上 2 张纸的链接。
我相信这里的 excel 向导会发现这是一个简单的问题，希望你们能帮助我解决我的问题。
希望能尽快听到这里的专家的意见。
表 1:

表 2:

Answer 1

我希望我理解这个问题是正确的。我不得不阅读它几次才能得到它。您可以在下面看到一个对我有用的 VBA 解决方案。

Sub color_cells()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim cl As Range, rng As Range
Dim str_a As String

Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")

For Each cl In ws2.Range("A1:EZ30")
    
    If Not IsError(cl.Value) And cl.Value Like "A*" Then

        str_a = cl.Value
        
        With ws1
            Set rng = .Range("B:B").Find(str_a)
            Set rng = rng.Offset(0, 2)
        End With
        
        cl.Interior.ColorIndex = rng.Interior.ColorIndex
        
    End If
Next

End Sub