VB入门级问题

Ta'ta

示例

怎么能达到  指定行后变换颜色（有可能是13行或者18，后续需要自定义），两种颜色穿插
PS: 很多行，几千上万

自己写的源码（第一天接触VB，尽管笑话吧）

[Visual Basic] 纯文本查看 复制代码

Sub 测试第一版()
'








  Range("A3:N13").Select
   With Selection.Interior
       .Pattern = xlPatternSolid
        .ThemeColor = 5
       .TintAndShade = 0.8
  End With
    Range("A14:N24").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 6
        .TintAndShade = 0.8
    End With
    Range("A25:N35").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 5
        .TintAndShade = 0.8
    End With
    
    Range("A36:N46").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 6
        .TintAndShade = 0.8
    End With
    Range("A47:N57").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 5
        .TintAndShade = 0.8
    End With
    Range("A58:N68").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 6
        .TintAndShade = 0.8
    End With
    
    
End Sub

unmask

如果非要写脚本，不能这么设置，需要循环，按照A列去找groupCount，颜色 = 6 - mod(groupCount, 2) ，再对group设置颜色。
比如3-13，是一个group，那么groupCount = 1， 颜色 = 5
14-24，是另一个group，那么groupCount = 2， 颜色 = 6
25-35，是另一个group，那么groupCount = 3， 颜色 = 5
...

[Visual Basic] 纯文本查看 复制代码

Sub addColor()
    ' 假设A列是分组用的数据
    Dim COL_GROUP As Long
    COL_GROUP = 1
    
    Dim sht As Worksheet
    Dim row As Long, rowPrev As Long, groupCount As Long, color As Integer
    Dim key As String, keyPrev As String
    
    Set sht = ActiveSheet
    rowPrev = 3
    keyPrev = ""
    groupCount = 0
    For row = 3 To sht.UsedRange.Rows.Count + 10
        key = sht.Cells(row, COL_GROUP)
        If key <> keyPrev Then
            ' 发现新的分组
            keyPrev = key
            If row > rowPrev Then
                ' 从第2group开始对前一group涂色
                groupCount = groupCount + 1
                color = 6 - groupCount Mod 2
                
                ' 涂色
                Range("A" & rowPrev & ":N" & row - 1).Select
                With Selection.Interior
                    .Pattern = xlPatternSolid
                    .ThemeColor = color
                    .TintAndShade = 0.8
                End With
                
                ' 记录新group开始的row
                rowPrev = row
            End If
        End If
    Next
End Sub

unmask

不需要写脚本的，直接条件格式就可以搞定的。
从A3开始选择需要设置的格式的范围，
然后条件格式中选择使用公式去定要设置格式的单元格，
然后公式：=MOD(COUNTA(UNIQUE($A$3:$A3)), 2)
然后在格式中设置颜色。