使用如下VBA代码取得相应的单元格底色 Sub a() Sub a() Range("A1").Select For i = 0 To 56 Step 1 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value2 = i If i Mod 19 = 18 And i <> 0 Then ActiveCell.Offset(-18, 2).Select Else ActiveCell.Offset(1, 0).Select End If Next End Sub 结果如下