[已解决]隔行填充

yilang521

要求按列填充公式，但是要隔一行，VBA，函数公式都行

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-24 08:31

隔行填充.rar (9.2 KB, 下载次数: 14)

2012-12-24 08:31 上传

点击文件名下载附件

跳转到最佳答案楼层

hoogle

附件打不开，重新上传个。

hoogle

1. 
   
2. Sub hoogle()
   
3. For i = 1 To 30 Step 2
   
4.     Cells(i, 1).EntireRow.Interior.ColorIndex = 3
   
5. Next
   
6. End Sub
   

复制代码

可以用这段代码按F8调试下

zjdh

隔行填充.rar (9.2 KB, 下载次数: 14)

2012-12-24 08:31 上传

点击文件名下载附件

yilang521

因为用了其他的方法，所以没有看回复，但还是很感谢，可能是我没有把问题说清楚，不是我想要得到的结果，下面再次举例说明