Excel VBA Listbox显示次数超出预期问题排查求助

问题根因 #

• 核心错误：ContinueButton_Click 中的窗体销毁逻辑顺序错误
  你先执行Unload UserForm1销毁窗体对象后，又调用了UserForm1.Hide，此时VBA会自动重新加载已经被销毁的UserForm1对象，直接触发额外弹窗。
• 潜在问题：全局数组APIARArray未做每次调用前的清空
  你每次调用APIARSearch前没有重置APIARArray，如果前一次查询返回的数组长度大于1，本次查询即使返回结果只有1条，旧的数组残留也会导致UBound(APIARArray) > 1的判断误触发，多余弹出Listbox。
• 边界问题：循环终止条件存在溢出风险
  你用多单元格长度和为0作为终止条件，如果最后一行符合条件后r=r+1，下一次判断时如果刚好存在空行但后续还有符合条件的行，或者最后一行处理完后多触发一次判断，也会导致多余执行。

修复方案 #

1. 修复窗体关闭逻辑，修改ContinueButton_Click代码：

Private Sub ContinueButton_Click()
    If IsNull(ListBox1.Value) Then
        MsgBox " Please select the appropriate balance to continue. "
        Exit Sub
    Else
        MyIndex = ListBox1.ListIndex + 1
        MyBal = APIARArray(MyIndex, 4)
        ' 先隐藏再销毁，不要操作已经销毁的对象
        Me.Hide
        Unload Me
        Sleep 750
    End If
End Sub

2. 每次调用API前清空全局数组APIARArray，避免旧数据残留，在LookForBalance的vUnit = Trim(Cells(r, 11))后加入数组清空逻辑：

vUnit = Trim(Cells(r, 11))
' 新增：清空之前的API返回数组
Erase APIARArray

3. 优化循环终止条件，改为匹配你实际的数据行范围，避免越界：

' 替换原来的Do Until逻辑，先获取实际数据最大行
Dim maxRow As Long
maxRow = ActiveSheet.UsedRange.Rows.Count
For r = 2 To maxRow
    ' 原来的行处理逻辑保持不变
Next r

4. 可选优化：Load UserForm1可以省略，直接调用UserForm1.Show会自动加载窗体，不需要重复写Load逻辑。

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