Question

我有以下问题，我花了很多时间研究，没有运气。通过该站点的论坛，我了解到一半的问题只能由VB解决。我不精通，因此在协助您制定完整解决方案时需要帮助。

第1页的A列包含项目列表。这些项目已应用了条件格式，并且它们的填充颜色根据第B列（也在第1页）中的选择而变化。

第二页还包含带有项目列表的列A。

第1页的A列包含重复的项目。工作表2列A包含唯一值。因此，我们将不得不在一个范围内执行查找。

我需要在工作表2上，在工作表1和工作表2之间的任何项目之间都存在文本匹配项，以便匹配的单元格返回工作表1列1中匹配单元格的填充色。

我的逻辑：

如果Sheet2！$ A1在Sheet1！$ A1中找到匹配项，则匹配的工作表2上的单元格必须更改其填充颜色以匹配工作表1上的参考单元格。

我有Kutools，但是找不到使其工作的方法。我也找不到在Excel中使用条件格式的方法。

此产品的最终产品是将工作表2列A中的每个项目链接到PowerPoint中的智能对象（将单元格粘贴为文本字段作为链接的Excel项目）。

每当工作表1列A列上的项目颜色由于在其中隔离的条件格式而发生变化时，颜色将在工作表2中发生变化并反映在PowerPoint中的相应项目中。

任何帮助将不胜感激。

-Sim

Answer 1

下面是基本代码，如果单元格值匹配，则可在单元格中镜像当前颜色。您可以对其进行修改以适合您的需求。

Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets(1)
Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets(2)

    If ws2.Range("A2").Value = ws1.Range("A2").Value Then
        ws2.Range("A2").Interior.Color = ws1.Range("A2").DisplayFormat.Interior.Color
    End If

两页之间的单元格文本匹配后，镜像填充颜色

1 个答案: