单元格颜色填充

暴走的小兔牙

行是按照偶数填充了，但是列为什么没有在指定区域内填充呢？

感觉所有的列都填充了，是什么地方有问题了？
大佬们，帮忙看下。

shiruiqiang

这一行，可以改为固定列

cyq4896

你想填充到哪列呢

gwjkkkkk

填充范围错了。。

tanglf188

1. Sub 按钮1_Click()
   
2.     Dim i&
   
3.     For i = 1 To 8
   
4.         If i Mod 2 = 0 Then
   
5.             ActiveSheet.Range("A" & i).Resize(1, 10).Interior.Color = vbRed
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

cyq4896

颜色填充。

cyq4896

颜色的填充