颜色索引键

Question

所以我对VBA有点新意，所以提前感谢你的帮助。我实际上要做的是基于颜色键的Vlookup功能。我根本不熟悉如何在if函数中执行此操作，但我会尝试在此处列出变量。

我想查看范围B2：038（颜色但没有值），如果它们具有与A40中的键相同的颜色索引：A46，则粘贴键中相应单元格的值。

.xlsx

Answer 1

你不能用一个简单的公式来做，但你可以使用宏：

Sub PopulateArray()

   For i = 2 To 38
      For j = 2 To 15
         For k = 40 To 46
            If Cells(i, j).Interior.Color = Range("A" & k).Interior.Color Then
               Cells(i, j) = Range("A" & k).Text
               Exit For
            End If
         Next k
      Next j
   Next i

End Sub

执行此宏时，扫描所有B2：O38范围，并测试其背景颜色是否等于A40：A46范围之一。如果是这样，您可以将A40：A46范围内的相应文本转发到当前单元格中。

如果您想更改字体颜色，请将内部替换为字体。