0

我有以下

Table 1
name Colour
James  red
John   blue

我也有

table 2
name
James
John

我需要用表 1 中使用的颜色为表 2 中的单元格着色。所以我需要在表 2 中找到与表 1 中的名称匹配的名称,然后将其与与名称关联的颜色值匹配(始终右边的值)。

任何帮助都会非常感谢。

4

1 回答 1

0

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
于 2012-11-26T12:57:19.403 回答