基于用户输入起始节点提取多Stresses工作表最大Ratio%的VBA优化

功能概述 #

优化后的代码将：

• 读取「RUN FORMATTING」工作表C30单元格的起始最小节点值
• 在所有名称含「Stresses」的工作表中，筛选节点值≥该输入值的行
• 提取这些行中Ratio%的最大值，并写入指定单元格
• 移除每个工作表单独弹出的MsgBox，改为最终统一提示或直接写入结果

修正后的代码 #

Sub FindMaxRatioWithNodeFilter()
    Dim ws As Worksheet
    Dim minNode As Double
    Dim currentNode As Variant
    Dim currentRatio As Variant
    Dim globalMaxRatio As Double
    Dim lastRow As Long
    Dim i As Long
    Dim nodeCol As Integer ' 节点值所在列索引（需根据实际调整）
    Dim ratioCol As Integer ' Ratio%所在列索引（需根据实际调整）
    Dim outputCell As Range ' 结果写入的目标单元格
    
    ' ---------- 可配置参数 ----------
    nodeCol = 1 ' 假设节点值在A列，若在B列则改为2，以此类推
    ratioCol = 12 ' 假设Ratio%在L列，若在其他列则调整对应数字
    Set outputCell = ThisWorkbook.Sheets("RUN FORMATTING").Range("C31") ' 结果写入位置，可自行修改
    ' ------------------------------
    
    ' 验证起始节点输入有效性
    With ThisWorkbook.Sheets("RUN FORMATTING")
        If Not IsNumeric(.Range("C30").Value) Then
            MsgBox "请在C30单元格输入有效的数值作为起始节点值。", vbExclamation
            Exit Sub
        End If
        minNode = .Range("C30").Value
    End With
    
    ' 初始化全局最大值为极小值
    globalMaxRatio = -1E+307
    
    ' 遍历所有含「Stresses」的工作表
    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "*Stresses*" Then
            ' 获取当前工作表数据的最后一行（基于节点列判断）
            lastRow = ws.Cells(ws.Rows.Count, nodeCol).End(xlUp).Row
            
            ' 若数据行小于起始行（26行），跳过当前工作表
            If lastRow < 26 Then
                GoTo NextSheet
            End If
            
            ' 遍历每一行数据
            For i = 26 To lastRow
                currentNode = ws.Cells(i, nodeCol).Value
                currentRatio = ws.Cells(i, ratioCol).Value
                
                ' 仅处理节点值≥输入值且Ratio%为有效数字的行
                If IsNumeric(currentNode) And currentNode >= minNode Then
                    If IsNumeric(currentRatio) Then
                        If currentRatio > globalMaxRatio Then
                            globalMaxRatio = currentRatio
                        End If
                    End If
                End If
            Next i
        End If
NextSheet:
    Next ws
    
    ' 输出结果到指定单元格
    If globalMaxRatio = -1E+307 Then
        outputCell.Value = "无符合条件的数据"
        MsgBox "未找到符合节点条件的有效Ratio%值。", vbInformation
    Else
        outputCell.Value = globalMaxRatio
        MsgBox "最大Ratio%值已写入指定单元格：" & outputCell.Address(False, False), vbInformation
    End If
End Sub

关键修正与优化点 #

• 节点筛选逻辑实现：原代码未使用C30的节点值，现在逐行检查节点值是否≥输入值，仅处理符合条件的行
• 全局最大值追踪：替换原有的单工作表最大值计算，改为跨所有目标工作表的全局最大值统计
• 动态数据范围：使用lastRow自动识别工作表的最后一行数据，替代固定的L26:L1000范围，适配不同数据量
• 输入有效性验证：增加对C30单元格的数值校验，避免非数值输入导致的错误
• 结果输出优化：将结果写入指定单元格，仅弹出一次最终提示（可根据需求移除MsgBox）
• 无数据处理：当没有符合条件的数据时，给出明确提示并写入说明文本

使用说明 #

1. 根据你的实际表格结构，修改代码中的可配置参数：
   • nodeCol：设置节点值所在的列索引（A列=1，B列=2，以此类推）
   • ratioCol：设置Ratio%所在的列索引
   • outputCell：设置结果要写入的目标单元格地址
2. 运行宏「FindMaxRatioWithNodeFilter」即可完成计算

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