我有以下
Table 1
name Colour
James red
John blue
我也有
table 2
name
James
John
我需要用表 1 中使用的颜色为表 2 中的单元格着色。所以我需要在表 2 中找到与表 1 中的名称匹配的名称,然后将其与与名称关联的颜色值匹配(始终右边的值)。
任何帮助都会非常感谢。
E 列是您姓名的开头,A:B 列是名称和颜色查找。根据需要将这些更改为命名范围/不同的工作表。
Sub ColourCheck()
Dim cell As Range
Dim cellColour As String
For Each cell In Sheet1.Range("E1").CurrentRegion.Rows
cellColour = Application.WorksheetFunction.VLookup(cell.Value, Sheet1.Range("A1").CurrentRegion, 2, 0)
Select Case cellColour
Case "red": cell.Interior.ColorIndex = 3
Case "blue": cell.Interior.ColorIndex = 5
End Select
Next cell
End Sub