VBA调试时如何快速展开本地窗口折叠的多维数组并保持展开状态

VBE内置的本地窗口原生没有一键全展开多维数组、断点重入后记忆展开状态的功能，你之前测试的各类快捷键、多选操作本身就不被当前版本VBE支持，无需反复尝试。可直接用以下几种效率更高的调试查看方案：

• 立即窗口全量打印：完全跳过手动展开步骤
  提前在通用模块里放一段数组打印的子过程，断点触发后直接在立即窗口调用，一次性输出所有维度的数组值：

  Sub DumpArray(arr As Variant)
      Dim rowIdx As Long, colIdx As Long
      For rowIdx = LBound(arr, 1) To UBound(arr, 1)
          Dim rowContent As String
          rowContent = "[" & rowIdx & "] "
          For colIdx = LBound(arr, 2) To UBound(arr, 2)
              rowContent = rowContent & vbTab & arr(rowIdx, colIdx)
          Next
          Debug.Print rowContent
      Next
  End Sub
  

  调用时只需要在立即窗口输入DumpArray 你的数组名回车，就能看到按行排列的全部数组内容，没有任何折叠层级。
• 预配置监视项：一次配置后调试全程免点击展开
  如果你更习惯树状视图的查看方式，不要用本地窗口自动生成的数组节点，转而在监视窗口手动添加每个第一维度索引的监视表达式。比如你常用的10×3数组，就依次添加arr(0)、arr(1)……arr(9)共10个监视项，这些表达式每次命中断点时会自动展开对应第二维度的所有值，不需要每次重新点击展开按钮，配置一次即可在当前调试会话中一直使用。
• 批量输出到工作表：适配大尺寸多维数组
  如果数组维度更高、数据量更大，断点触发时直接在立即窗口执行单句代码，把整个数组写入临时工作表：

  Sheets.Add.Name = "DebugTemp": Sheets("DebugTemp").[A1].Resize(UBound(arr,1)-LBound(arr,1)+1, UBound(arr,2)-LBound(arr,2)+1) = arr
  

  执行后切到新建的临时工作表，就能看到和数组排布完全一致的完整内容，比逐层点击展开效率高得多。

补充说明：目前没有任何原生方法能让本地窗口的数组节点保持展开状态，也不存在批量点击展开的快捷键，网上流传的小键盘*号全展开等操作仅适用于早期VB6开发环境，在Office自带的VBA编辑器中无效，不用浪费时间测试。

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