使用如下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
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
结果如下