excel vba 实现单元格根据需要自动改变颜色

一般我们只做的excel是这个样子的。

当行数增多的时候，记录或查找数据会错行，容易出现错误，如果将奇偶行设置成不同的颜色就好多了。就象这样

但是这样，如果在单元格之间拷贝数据，就会影响原来的底色，还要重新调整，比较麻烦，就想让她自动完成。就象这样：

 自动改变excel底色-CSDN直播

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 100
    Dim a As String
    a = "b" + CStr(i)
    If Range(a).Borders.LineStyle = xlNone