如何一键隔列设置颜色

如下表格，需要隔列设置颜色，并且不知道有多少列

使用以下一段代码：

cs = Range("a1").CurrentRegion.Columns.Count

获取a1单元格所在的当前区域列的数量。

此句代码也可以改为以下代码

cs=Range("a1").End(xlToRight).Columns

获取了最后一列之后，存在cs变量中。

然后从2到最后一列循环，间隔2，也就是2,4,6,8

然后用interior.colorindex=3 填充颜色。

如何想针对整行整列的操作，还可以使用以下语句

Rows("a3").EntireRow.Clear   清除a3对应的整行的内容

column("a3").Entirecolumn.delete   删除a3对应的整列

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。