多工作表股票总成交量、年涨跌幅计算VBA代码修复问询

问题根源 #

你碰到的错误核心是两点：

• 计算单只股票成交量时，切换股票未重置累加变量，导致后续股票成交量持续累加到前一只的结果里
• 没有正确识别同一只股票的连续行范围，最终只捕获了最后一笔成交量数据

修正后的多工作表VBA代码 #

Sub CalculateStockMetrics()
    Dim targetSheets As Variant
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currStockID As String
    Dim totalVol As Double
    Dim yearStartPrice As Double
    Dim yearEndPrice As Double
    Dim priceDelta As Double
    Dim changeRate As Double
    
    ' 指定要处理的三个工作表，替换成你的实际表名
    targetSheets = Array("Sheet1", "Sheet2", "Sheet3")
    
    ' 遍历目标工作表
    For Each ws In ThisWorkbook.Worksheets(targetSheets)
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        If lastRow < 2 Then GoTo SkipSheet ' 无数据则跳过
        
        ' 初始化首只股票的基础数据（假设股票ID在A列，成交量在F列，年初价在C列，年末价在D列）
        currStockID = ws.Cells(2, "A").Value
        totalVol = ws.Cells(2, "F").Value
        yearStartPrice = ws.Cells(2, "C").Value
        yearEndPrice = ws.Cells(2, "D").Value
        
        ' 从第3行开始遍历数据
        For i = 3 To lastRow
            ' 判断当前行是否属于同一只股票
            If ws.Cells(i, "A").Value = currStockID Then
                ' 累加成交量
                totalVol = totalVol + ws.Cells(i, "F").Value
                ' 更新当前股票的最新收盘价
                yearEndPrice = ws.Cells(i, "D").Value
            Else
                ' 写入上一只股票的计算结果
                ws.Cells(i - 1, "L").Value = totalVol ' 总成交量写入L列
                ' 计算年度价格变动与涨跌幅
                priceDelta = yearEndPrice - yearStartPrice
                changeRate = (priceDelta / yearStartPrice) * 100
                ws.Cells(i - 1, "J").Value = priceDelta & " (" & Round(changeRate, 2) & "%)"
                
                ' 重置变量，处理新股票
                currStockID = ws.Cells(i, "A").Value
                totalVol = ws.Cells(i, "F").Value
                yearStartPrice = ws.Cells(i, "C").Value
                yearEndPrice = ws.Cells(i, "D").Value
            End If
        Next i
        
        ' 处理最后一只股票的结果
        ws.Cells(lastRow, "L").Value = totalVol
        priceDelta = yearEndPrice - yearStartPrice
        changeRate = (priceDelta / yearStartPrice) * 100
        ws.Cells(lastRow, "J").Value = priceDelta & " (" & Round(changeRate, 2) & "%)"
        
SkipSheet:
    Next ws
End Sub

代码关键调整说明 #

1. 变量重置机制：每次识别到新股票时，立即重置成交量累加、价格基准等变量，彻底解决跨股票数据污染问题
2. 股票范围识别：通过对比当前行与上一行的股票ID，精准划分单只股票的行区间，确保所有成交量都被统计
3. 多工作表批量处理：通过数组指定目标工作表，一次性完成三个表的计算，无需重复执行代码

自定义适配提示 #

• 如果你的股票ID、成交量、价格所在列不同，直接修改代码中对应的列标识（比如把"A"改成你的股票ID列）
• 涨跌幅的小数位数可调整Round(changeRate, 2)中的2为所需位数
• 务必替换targetSheets数组里的工作表名称为你实际使用的表名

测试注意事项 #

1. 先备份数据，避免误操作
2. 可先在单个工作表上测试代码，确认结果符合预期后再批量运行
3. 若仍有问题，检查数据是否存在空白行、股票ID格式不一致（如空格、大小写差异）等情况

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