Excel中VBA按钮无法执行脚本内计算的问题求助

核心问题 #

你的代码存在变量初始化顺序错误：计算secondvalue时，变量m还未被赋值。手动运行时，m可能因之前的操作残留了有效值，但通过按钮触发宏时，是全新的执行上下文，m初始值为0，导致求和范围Range("B6:B" & m)变成无效的B6:B0，最终secondvalue无法得到正确的求和结果，后续的占比计算自然无法生成有效数据。

修正后的代码 #

'Calculate Share of portfolio %
Dim ws As Worksheet
Dim lastRow As Long
Dim secondvalue As Double

'指定目标工作表，避免因激活工作表不同导致的问题
Set ws = ThisWorkbook.Worksheets("你的工作表名称") '替换为实际表名

'找到B列最后一行有数据的行号
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

'计算B6到最后一行的总和
secondvalue = WorksheetFunction.Sum(ws.Range("B6:B" & lastRow))

'循环计算占比
For m = 6 To lastRow
    If ws.Cells(m, 2).Value <> "" And secondvalue <> 0 Then '增加除数非零判断，避免报错
        ws.Cells(m, 3).Value = ws.Cells(m, 2).Value / secondvalue
    End If
Next m

额外优化点 #

• 明确指定工作表对象：避免按钮所在工作表与数据工作表不一致时，代码操作错误的表
• 增加除数非零判断：防止B列总和为0时触发运行时错误
• 使用lastRow替代直接遍历到Rows.Count：减少无效循环，提升效率

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