RGB 返回 code>，因此您需要将 clrBlue 声明为 Long ，而不是 ColorFormat 。

RGB returns a Long, so you need to declare clrBlue as Long instead of as ColorFormat.

Dim clrBlue As Long

clrBlue = RGB(0, 0, 256)

Application.union(Range("A2"), Range("B3")).Interior.Color = clrBlue