VBA Excel隔行上色

chunyu.wu

于 2024-07-31 08:54:39 发布

阅读量536

点赞数 4

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.youkuaiyun.com/wuchunyu002/article/details/140813145

版权

VBA 专栏收录该内容

67 篇文章

订阅专栏

Option Explicit

Sub 隔行上色()
    Dim i As Long
    Dim intLastRow As Long
    
    intLastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 1 To Int(intLastRow / 2)
        '从B列到K列
        'Range(Cells(2 * i, 2), Cells(2 * i, 11)).Select
        'Selection.Interior.ColorIndex = 34
        Range(Cells(2 * i, 2), Cells(2 * i, 11)).Interior.ColorIndex = 34
    Next i
    
End Sub