VBA窗体ListBox合并多区域后仅显示两列，如何排查问题？

问题出在Union生成的是不连续的多区域集合，ListBox的List属性无法直接识别这种分散的区域结构，只会读取第一个连续区域（也就是你代码里的A1:B列）的列数，后续的E1:F区域数据会被忽略，所以只显示两列。

要解决这个问题，你需要手动把Union里的多个区域数据合并成一个连续的二维数组，再赋值给ListBox。具体实现如下：

With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set rng2 = Union(.Range("A1:B" & lastRow), .Range("E1:F" & lastRow))
    
    ' 初始化二维数组，行数为数据总行数，列数为合并后的总列数（这里是4列）
    Dim arr() As Variant
    ReDim arr(1 To lastRow, 1 To 4)
    
    ' 遍历每个区域，将数据填充到数组对应位置
    Dim area As Range
    Dim colOffset As Integer
    colOffset = 0
    For Each area In rng2.Areas
        Dim r As Integer, c As Integer
        For r = 1 To area.Rows.Count
            For c = 1 To area.Columns.Count
                arr(r, colOffset + c) = area.Cells(r, c).Value
            Next c
        Next r
        colOffset = colOffset + area.Columns.Count
    Next area
    
    With lb
        .List = arr
        .ColumnWidths = "100;200;100;100" ' 对应4列的宽度设置
        .ColumnCount = 4 ' 总列数改为合并后的列数
    End With
End With

如果后续需要合并更多不连续区域，只需调整数组的列数即可，核心逻辑通用。

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