将具有三种不同颜色的日期列从一个工作簿复制到另一个工作簿中

Question

我正在尝试使用Vlookup将Date列中的条目从一个工作簿传输到另一个工作簿。我只能传输单元格中的数据而不是颜色编码。是否可以将每个单元格的颜色代码与数据一起传输？

我有三种不同的颜色RED，GREEN和YELLOW分别对应于Incomplete，Complete和In。转移单元格颜色编码后，如果处理完成，我应该能够手动更改它。

Answer 1

这是代码，如果列中有匹配则将颜色复制过来。如果您已经拥有要检查的列表，则不使用Vloopup似乎有点无意义。如果没有匹配，它将保持默认颜色。

Dim i As Integer
Dim a As Range

For i = 1 To WorksheetFunction.CountA(Columns("C"))
    On Error GoTo NextOne
    Set a = Cells(WorksheetFunction.Match(Range("C" & i), Range("B1:B6"), 0), "B")
    Range("C" & i).Interior.Color = a.Interior.Color

NextOne:
    Resume nextOne2
nextOne2:
Next i

您需要引用要使用的工作簿。您将需要查找如何引用工作簿。并更改数据所在的列。