批量数据范围的循环着色答案

【问题标题】：Loop colouring for bulk data range批量数据范围的循环着色
【发布时间】：2018-10-16 12:13:30
【问题描述】：

我试图使用循环用背景色填充数据。 VBA 没有显示以下代码的任何错误，因此它似乎有效。但是在工作表中没有效果。

你能告诉我哪里遗漏了什么吗？

我的数据包含第 11 行和第 14515 行之间的值

我有 31 个部分的这些数据，其中每个部分正好有 467 行。我想给其中一些上色（每 2 个），但不是全部。

Sub Background_color2()
    Sheets("14").Activate
    With Range("A479:FI945")
    For n = o To n = 14515 Step 934       '934 rows interval between 2  separate sections
        .Offset(n).Interior.Color = RGB(235, 241, 222)
    Next n
    End With
End Sub

【问题讨论】：

在 For 循环中初始化 n 时，您似乎有错字。并且偏移量的最终值可能是关闭的。我不明白你是如何从 31x467 (+ 11) 得到 14515 的。
大致应该是 (468*31)+11，白色给出 14519 行。我没有考虑空行（每个部分之间有 3 行）。无论如何，您对此有什么解决方案吗？

标签： excel vba colors

【解决方案1】：

你可以做这样的事情。值可能需要调整。

Sub Background_color2()
    Dim n As Long
    For n = (11 + 468) To (11 + 31 * 468) Step (2 * 468)
        Sheet("14").Cells(n,1).Resize(467, 165).Interior.Color = RGB(235, 241, 222)
    Next n
End Sub

【讨论】：

【解决方案2】：

试试，

Sub Background_color2()

    dim n as long

    With Sheets("14").Range("A479:FI945")
        For n = 0 To 14515 Step 934       '934 rows interval between 2  separate sections
            .Offset(n, 0).Interior.Color = RGB(235, 241, 222)
        Next n
    End With

End Sub

【讨论】：