VBA实现Excel多列纵向求和代码运行报错问题咨询

原代码存在的问题 #

• 工作表引用语法错误：dws("Summary")不是合法的VBA工作表调用写法，正确调用格式为Sheets("Summary")，或提前声明赋值的工作表对象变量
• 最后行取值逻辑错误：End(xlUp)返回的是单元格对象，直接赋值给行号变量会触发类型不匹配错误，取行号必须追加.Row属性
• 区域拼接语法错误：VBA不支持Range("M2":lastrow)这种参数格式，连续单元格区域需要用双参数Range(起始单元格, 结束单元格)格式，或拼接合法的单元格地址字符串
• 数据类型存在溢出风险：金额类数据求和如果包含小数、或数值较大，用Long长整型存储会触发溢出错误，应使用Double或Currency类型
• 逻辑与需求错位：原代码逻辑为计算M、N列和写入P、Q列，和需求中“计算K列总和写入M列、计算L列总和写入N列”的要求不匹配
• 单元格调用未绑定工作表：Range("P2")这类未指定父对象的写法，默认指向当前激活的工作表，切换工作表时会把计算结果写错位置

修正后可直接运行的代码 #

Sub CalcColumnSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sumK As Double, sumL As Double
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Sheets("Summary")
    ' 取数据最后一行行号（原逻辑按B列取数，可根据实际数据情况改为按K/L列取数）
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    
    ' 按需求计算单列总和写入对应汇总列
    sumK = WorksheetFunction.Sum(ws.Range("K2:K" & lastRow))
    ws.Range("M2").Value = sumK
    
    sumL = WorksheetFunction.Sum(ws.Range("L2:L" & lastRow))
    ws.Range("N2").Value = sumL
    
    ' 后续追加汇总列直接按上述格式顺延即可，例如计算M列和写入O列：
    ' Dim sumM As Double
    ' sumM = WorksheetFunction.Sum(ws.Range("M2:M" & lastRow))
    ' ws.Range("O2").Value = sumM
End Sub

优化建议 #

如果需要批量计算多列汇总，不需要逐列手写代码，可以加循环逻辑批量处理，比如从K列开始连续N列的求和结果，统一写入右侧偏移2列的汇总列位置，减少重复代码量。

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