Question

这就是驱动它的原因：

 Dim wb As Workbook
 Dim arrList()
 Dim iInstances As Long

 iInstances = 0

 For Each wb In Application.Workbooks
  If wb.Name <> ThisWorkbook.Name Then
   iInstances = iInstances + 1
   ReDim Preserve arrList(iInstances)
   arrList(iInstances) = wb.Name
  End If
 Next

 With Sheets(1)
  .Shapes("ListBox1").Height = 136.5
  .ListBox1.List = arrList
 End With

问题：代码在列表顶部插入一个空行（我不想要）。

Answer 1

尝试：

  If wb.Name <> ThisWorkbook.Name Then
      ReDim Preserve arrList(iInstances)       
      arrList(iInstances) = wb.Name
      iInstances = iInstances + 1      
  End If

并将以下内容放在模块的顶部。

Option Base 0

Answer 2

您正在创建一个空0索引的数组，因此您只需在添加工作簿后递增计数器：

For Each wb In Application.Workbooks If wb.Name <> ThisWorkbook.Name Then ReDim Preserve arrList(iInstances) arrList(iInstances) = wb.Name iInstances = iInstances + 1 End If Next

阵列馈送ListBox中的额外空白行

2 个答案: