需求：开发可获取Excel工作表A列下一个红色单元格行号的VBA函数/宏以实现循环跳转

我懂你的困扰——固定跳2行完全应付不了不规律的空行数，咱们换个更靠谱的方案：先封装一个专门查找下一个红色单元格行号的可复用函数，再调整循环逻辑，让它遇到空单元格时自动调用这个函数精准跳转。

第一步：封装查找下一个红色单元格的函数 #

先写一个通用函数，传入起始行和目标工作表，它会从起始行的下一行开始，在A列里定位第一个底色为红色（RGB(255,0,0)）的单元格，返回对应的行号；如果遍历到最后都没找到，就返回0用来终止循环，避免死循环。

Function GetNextRedRow(startRow As Long, ws As Worksheet) As Long
    Dim i As Long
    '从起始行的下一行开始，遍历到A列最后一个有数据的行
    For i = startRow + 1 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        '判断单元格底色是否为目标红色
        If ws.Cells(i, 1).Interior.Color = RGB(255, 0, 0) Then
            GetNextRedRow = i
            Exit Function '找到后立即返回，不用继续遍历
        End If
    Next i
    '没找到红色单元格时返回0
    GetNextRedRow = 0
End Function

第二步：修改原循环逻辑 #

原来的For循环直接修改循环变量容易出问题（比如Next rownumber会自动加1，导致跳转错位），咱们换成更灵活的Do While循环，逻辑更清晰：

Sub ProcessRowsWithRedJump()
    Dim TPsheet As Worksheet
    Dim rownumber As Long
    Dim LastRow As Long
    Dim nextRedRow As Long
    
    Set TPsheet = ThisWorkbook.Worksheets("你的工作表名") '记得替换成实际工作表名称
    LastRow = TPsheet.Cells(TPsheet.Rows.Count, "A").End(xlUp).Row
    rownumber = 6 '从第6行开始遍历
    
    Do While rownumber <= LastRow
        '如果当前单元格非空，执行创建图表的操作
        If TPsheet.Cells(rownumber, 1) <> "" Then
            Call CreateChart()
            rownumber = rownumber + 1 '处理完当前行，正常往下走一行
        Else
            '调用函数查找下一个红色单元格的行号
            nextRedRow = GetNextRedRow(rownumber, TPsheet)
            If nextRedRow = 0 Then
                '找不到红色单元格，直接退出循环，避免死循环
                Exit Do
            End If
            '跳转到下一个红色单元格的行号，继续后续遍历
            rownumber = nextRedRow
        End If
    Loop
End Sub

关键细节说明 #

• 函数GetNextRedRow会自动识别A列最后一行数据，不用硬写固定行数（比如你之前的1000行），适配不同数据量的工作表；
• 用Do While循环替代原For循环，避免了修改循环变量导致的逻辑混乱；
• 增加了找不到红色单元格时的退出判断，防止程序陷入死循环；
• 你只需要保证CreateChart()函数能正确处理当前rownumber对应的行数据即可。

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