如何用If语句（非Max函数）获取最大涨跌幅及对应股票代码？代码异常排查

原代码存在的问题 #

• 涨跌幅计算逻辑错误：直接将单元格值当作涨幅，未基于开盘/收盘价计算真实涨跌幅百分比，且条件判断逻辑颠倒
• 输出时机错误：将写入单元格的操作放在循环内的判断分支中，后续符合条件的记录会覆盖之前的结果，最终仅保留最后一次写入的值
• 初始值设置不合理：greatest_increase = -1 若所有股票涨幅均小于-1，会导致无法正确捕获最大值
• 循环范围有风险：循环到400行时，Cells(e+1,11) 会访问401行，若数据仅到400行，会引用空值导致计算错误

修正后的完整代码 #

Sub GetStockMetrics()
    Dim lastRow As Long
    Dim greatestIncrease As Double, greatestDecrease As Double
    Dim greatestVolume As Double
    Dim tickerIncrease As String, tickerDecrease As String, tickerVolume As String
    Dim currentTicker As String, prevTicker As String
    Dim currentVolume As Double
    Dim openPrice As Double, closePrice As Double, percentChange As Double
    
    ' 动态获取数据最后一行，避免固定行数的局限性
    lastRow = Cells(Rows.Count, 9).End(xlUp).Row
    
    ' 初始化变量：最大涨幅设极小值，最大跌幅设极大值，确保覆盖所有可能情况
    greatestIncrease = -100
    greatestDecrease = 100
    greatestVolume = 0
    currentVolume = 0
    openPrice = Cells(2, 10).Value ' 假设第10列是开盘价，需根据实际表格调整
    
    ' 遍历所有数据行（第1行假设为表头）
    For e = 2 To lastRow
        currentTicker = Cells(e, 9).Value ' 第9列是股票代码，需根据实际调整
        prevTicker = IIf(e > 2, Cells(e - 1, 9).Value, "")
        
        ' 累加当前股票的成交量（假设第12列是成交量，需根据实际调整）
        currentVolume = currentVolume + Cells(e, 12).Value
        
        ' 判断是否到当前股票的最后一行（下一行是新股票或已到数据末尾）
        If e = lastRow Or currentTicker <> prevTicker Then
            closePrice = Cells(e, 11).Value ' 第11列是收盘价，需根据实际调整
            
            ' 计算涨跌幅百分比，避免除以0的情况
            If openPrice <> 0 Then
                percentChange = (closePrice - openPrice) / openPrice * 100
            Else
                percentChange = 0
            End If
            
            ' 更新最大涨幅记录
            If percentChange > greatestIncrease Then
                greatestIncrease = percentChange
                tickerIncrease = currentTicker
            End If
            
            ' 更新最大跌幅记录
            If percentChange < greatestDecrease Then
                greatestDecrease = percentChange
                tickerDecrease = currentTicker
            End If
            
            ' 更新最大成交量记录
            If currentVolume > greatestVolume Then
                greatestVolume = currentVolume
                tickerVolume = currentTicker
            End If
            
            ' 重置下一只股票的开盘价和成交量计数器
            If e < lastRow Then
                openPrice = Cells(e + 1, 10).Value
                currentVolume = 0
            End If
        End If
    Next e
    
    ' 统一输出结果到指定单元格（可根据需求调整位置）
    Cells(2, 15).Value = greatestIncrease
    Cells(2, 16).Value = tickerIncrease
    Cells(3, 15).Value = greatestDecrease
    Cells(3, 16).Value = tickerDecrease
    Cells(4, 15).Value = greatestVolume
    Cells(4, 16).Value = tickerVolume
End Sub

代码关键说明 #

• 动态获取数据行数：通过Rows.Count和End(xlUp)自动定位最后一行，适配不同数据量
• 正确计算涨跌幅：基于单只股票的开盘价和收盘价计算百分比，处理了开盘价为0的异常情况
• 成交量累加逻辑：同一股票的所有成交量累加完成后，再对比更新最大成交量
• 统一输出结果：循环结束后一次性写入单元格，避免中间结果被覆盖
• 变量初始化优化：最大涨幅设为-100、最大跌幅设为100，确保能捕获所有可能的涨跌幅范围

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