VBA编译错误：End If无对应Block If，调试无效求助

错误根源分析 #

你的代码出现编译错误，核心是代码块结构不匹配，同时存在拼写错误和逻辑问题：

1. ElseIf分支中，With cell1.Interior.Gradient.ColorStops.Add(1)块未添加End With就直接开启下一个With，导致整个If块结构混乱，编译器无法识别对应的End If。
2. 多处把xlPatternLinearGradient写成了x1PatternLinearGradient（把字母l误写为数字1），这会导致运行时错误。
3. 嵌套循环逻辑错误：当前代码会让rateChart1里的每个单元格和rateChart2里的所有单元格逐一比较，这应该不是你想要的“对应位置单元格对比”的逻辑。

修正后的代码 #

Sub CompareAndFormatWithGradient()
    Dim rateChart1 As Range
    Dim rateChart2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    Dim cellIndex As Integer
    Dim ws As Worksheet

    ' 设置数据所在工作表
    Set ws = Worksheets("Rolling Data Ranked")

    ' 设置两个数据区域
    Set rateChart1 = ws.Range("E56:Q56")
    Set rateChart2 = ws.Range("W56:AI56")

    ' 遍历对应位置的单元格（修正循环逻辑，改为按索引匹配）
    For cellIndex = 1 To rateChart1.Cells.Count
        Set cell1 = rateChart1.Cells(cellIndex)
        Set cell2 = rateChart2.Cells(cellIndex)
        
        If cell1.Value > cell2.Value Then
            ' 给cell1设置金色渐变
            With cell1.Interior
                .Pattern = xlPatternLinearGradient
                .Gradient.Degree = 45
                .Gradient.ColorStops.Clear
            End With
            With cell1.Interior.Gradient.ColorStops.Add(0)
                .Color = 49407
                .TintAndShade = 0
            End With
            With cell1.Interior.Gradient.ColorStops.Add(1)
                .Color = 65535
                .TintAndShade = 0
            End With
            
            ' 给cell2设置银色渐变
            With cell2.Interior
                .Pattern = xlPatternLinearGradient
                .Gradient.Degree = 45
                .Gradient.ColorStops.Clear
            End With
            With cell2.Interior.Gradient.ColorStops.Add(0)
                .Color = RGB(128, 128, 128)
                .TintAndShade = 0
            End With
            With cell2.Interior.Gradient.ColorStops.Add(1)
                .Color = RGB(255, 255, 255) ' 修正银色渐变终点色，避免黑色覆盖效果
                .TintAndShade = 0
            End With
        ElseIf cell1.Value < cell2.Value Then
            ' 给cell1设置银色渐变
            With cell1.Interior
                .Pattern = xlPatternLinearGradient
                .Gradient.Degree = 45
                .Gradient.ColorStops.Clear
            End With
            With cell1.Interior.Gradient.ColorStops.Add(0)
                .Color = RGB(128, 128, 128)
                .TintAndShade = 0
            End With
            With cell1.Interior.Gradient.ColorStops.Add(1)
                .Color = RGB(255, 255, 255)
                .TintAndShade = 0
            End With
            
            ' 给cell2设置金色渐变
            With cell2.Interior
                .Pattern = xlPatternLinearGradient
                .Gradient.Degree = 45
                .Gradient.ColorStops.Clear
            End With
            With cell2.Interior.Gradient.ColorStops.Add(0)
                .Color = 49407
                .TintAndShade = 0
            End With
            With cell2.Interior.Gradient.ColorStops.Add(1)
                .Color = 65535
                .TintAndShade = 0
            End With
        End If
    Next cellIndex
End Sub

关键修正说明 #

• 修复块结构：给ElseIf分支中遗漏的End With补全，确保每个With都有对应的结束语句，让If块结构完整。
• 修正拼写错误：把所有x1PatternLinearGradient改为xlPatternLinearGradient。
• 调整循环逻辑：将嵌套循环改为按索引遍历，让rateChart1和rateChart2中对应位置的单元格进行比较（比如E56对应W56，F56对应X56等），符合常规对比需求。
• 优化渐变效果：把银色渐变的终点色从黑色改为白色，避免原设置导致单元格变成黑色，失去银色渐变的视觉效果。

内容的提问来源于stack exchange，提问作者DuWayne Brown