如何制作Excel宏：一键高亮多工作表最下方高亮行的下一行

核心VBA代码 #

Sub MarkNextRowAsGreen()
    Dim ws As Worksheet
    Dim lastGreenRow As Long
    Dim greenColor As Long
    
    ' 替换为你手动标绿的RGB颜色值，示例为常用亮绿色
    greenColor = RGB(146, 208, 80)
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 从表尾向上查找第一个绿色填充的单元格
        On Error Resume Next
        lastGreenRow = ws.Cells.Find(What:="", After:=ws.Cells(1, 1), LookIn:=xlFormats, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
            MatchCase:=False, SearchFormat:=True).Row
        On Error GoTo 0
        
        ' 找到高亮行后，给下一行填充绿色
        If lastGreenRow > 0 Then
            ' 整行高亮，若只需指定列可改为ws.Columns("A:D").Rows(lastGreenRow + 1).Interior.Color
            ws.Rows(lastGreenRow + 1).Interior.Color = greenColor
        End If
    Next ws
End Sub

操作步骤 #

1. 打开目标Excel工作簿，按Alt+F11打开VBA编辑器
2. 在左侧「工程资源管理器」右键点击你的工作簿名称，选择【插入】→【模块】
3. 将上述代码粘贴到弹出的模块代码窗口中
4. 返回Excel界面，点击【开发工具】选项卡（未显示则通过「文件→选项→自定义功能区」勾选）
5. 点击【插入】，选择表单控件里的【按钮（表单控件）】，拖动鼠标画出按钮
6. 在弹出的「指定宏」窗口中选择MarkNextRowAsGreen，点击确定
7. 修改按钮显示文字为「本月全部到账」

注意事项 #

• 若你的手动标绿颜色不是示例中的亮绿色，需调整代码里RGB(146,208,80)的值：选中已标绿的单元格，查看「填充颜色→其他颜色→自定义」里的RGB参数替换即可
• 无高亮行的工作表会被宏自动跳过，不会产生错误
• 建议先备份工作簿再测试宏，避免数据意外

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