Excel VBA循环填充特定单元格值问题：Next无对应For错误求助

嘿，我来帮你搞定这个VBA的报错问题！

你遇到的**"Next without For"**错误，核心原因是你的For循环和Next语句的代码结构不匹配——大概率是你把For放在了某个代码块（比如录制宏自带的With块）中间，却把Next写到了代码块外面，导致VBA找不到和Next对应的For语句。

先给你一个能正常运行的修正版代码 #

结合Find和FindNext来循环查找23个匹配项，同时保证循环结构正确：

Sub HighlightCentralCells()
    Dim targetCell As Range
    Dim firstMatchAddress As String
    Dim k As Integer
    
    '第一次查找第一个包含"central"的单元格
    Set targetCell = Cells.Find(What:="central", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not targetCell Is Nothing Then
        '记录第一个匹配单元格的地址，防止无限循环
        firstMatchAddress = targetCell.Address
        
        '循环23次查找并着色
        For k = 1 To 23
            '填充蓝绿色（这里用RGB值，你也可以换成内置颜色常量比如xlTeal）
            targetCell.Interior.Color = RGB(0, 176, 240)
            
            '查找下一个匹配项
            Set targetCell = Cells.FindNext(targetCell)
            
            '如果回到第一个匹配单元格，提前退出循环（避免超过实际匹配数时出错）
            If targetCell.Address = firstMatchAddress Then Exit For
        Next k
    End If
End Sub

为什么你的原写法会报错？ #

举个典型的错误结构例子（很多人录制宏后加循环会犯这个错）：

With Cells
    For k = 1 To 23
        .Find(What:="central") '录制的查找代码
        .Interior.Color = xlTeal
End With '这里提前结束了With块，Next被留在了块外面
Next k

这种情况下，Next不在For所在的代码层级里，VBA就会抛出"Next without For"的错误。

额外建议：用更灵活的循环替代固定次数 #

如果你不确定"central"的匹配项永远是23个，可以用Do While循环替代固定次数的For，自动遍历所有匹配项：

Sub HighlightAllCentralCells()
    Dim targetCell As Range
    Dim firstMatchAddress As String
    
    Set targetCell = Cells.Find(What:="central", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not targetCell Is Nothing Then
        firstMatchAddress = targetCell.Address
        Do
            targetCell.Interior.Color = RGB(0, 176, 240)
            Set targetCell = Cells.FindNext(targetCell)
        Loop While Not targetCell Is Nothing And targetCell.Address <> firstMatchAddress
    End If
End Sub

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