VBA数组正常运行无输出、调试模式运行正常的问题求解

故障原因 #

• 隐式对象引用问题：代码中第二个循环的Cells(i, 1)没有显式绑定目标工作表，仅依赖Sheets(x).Activate指定活动表，直接运行时如果存在工作表事件触发、窗口焦点跳转等情况，Cells会指向非预期的工作表，因此无写入结果。调试时断点会等待工作表激活完成再执行后续代码，所以运行正常。
• 集合类型混用问题：Sheets集合包含普通工作表、图表、宏表等多种类型，若工作簿存在非工作表类型的Sheet，会导致计数错误，引发写入位置偏移甚至失败。
• 可选优化项：数组默认从0下标开始，你声明的ReDim tags(x)实际有x+1个元素，仅使用1到x位，存在冗余。

修复后的代码 #

Sub 汇总R14值()
    Dim wsCount As Long
    Dim i As Long
    ' 仅统计普通工作表数量，排除图表等其他类型Sheet
    wsCount = ActiveWorkbook.Worksheets.Count
    ' 直接指定目标工作表，不需要激活
    With ActiveWorkbook.Worksheets(wsCount)
        For i = 1 To wsCount
            ' 显式指定来源和目标单元格的父对象
            .Cells(i, 1).Value = ActiveWorkbook.Worksheets(i).Range("R14").Value
        Next i
    End With
End Sub

优化说明 #

• 去掉了冗余的数组存储步骤，直接循环写入目标单元格，减少内存占用
• 全程不激活任何工作表，避免激活状态变化引发的异常
• 所有单元格对象都显式绑定了所属工作表，不会出现指向漂移的问题

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