Sub 绿色变为白色()Dim rngFor Each rng In Range("a1:z100")If rng.Interior.ColorIndex = 10 Thenrng.Interior.ColorIndex = 2End IfNextEnd Sub查找区域为A1:Z100,根据实际修改