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

Posted 2023-02-19

【中文标题】将单元格颜色从工作表复制到具有相同单元格值的工作表

【英文标题】：Copy the cell color from SheetA to SheetB that has the same cell value

【发布时间】：2021-07-20 14:11:01

【问题描述】：

这是我第一次在这里发布问题，所以请在我尽力解释我的问题时与我坦诚相见。

我的工作簿中有两张工作表，其中 Sheet1 直观地表示多个单元（A1 到 A162）在具有 162 个正方形的托盘中的位置。 并非所有这些方块都被填满，因为有些是空的。

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

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

已在此处附上 2 张纸的链接。 我相信这里的 excel 向导会发现这是一个简单的问题，希望你们能帮助我解决我的问题。 希望尽快收到这里专家的来信。

Sheet1：

Sheet2：

【参考方案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