文章分类 -  VBA

摘要：使用如下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结果如下另外补充一点。当Excel 阅读全文