将单元格颜色从SheetA复制到具有相同单元格值的SheetB

Question

这是我第一次在这里发帖，所以请直接回答我的问题，我会尽我所能解释我的问题。

我的工作簿中有两个工作表，其中工作表1直观地表示一个有162个方格的托盘中多个单位（A1到A162）的位置。并不是所有的方格都被填满，因为有些方格是空的。

现在，第2页显示了单位A1到A162的数值。我已经使用条件格式为每个值分配颜色。

我试图从sheet2将A1的颜色复制到sheet1中具有A1值的单元格，但没有成功。

在此附上两页的链接。我相信这里的excel向导会发现这是一个简单的问题，希望你们能帮助我解决这个问题。希望很快能听到这里的专家们的意见。

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