Excel VBA用户窗体：ListBox数据导出至单元格区域异常求助

我来帮你搞定这个问题——你遇到的现象其实是因为直接把ListBox.List赋值给固定大小的单元格区域时，Excel会自动填充剩余位置：要么重复唯一的行数据，要么用#N/A补位。要实现只导出已填充的行，且清空多余行避免错误值，可以按下面的思路写代码：

核心解决方案代码 #

把这段代码放到你的导出命令按钮的Click事件里：

Private Sub cmdExport_Click()
    Dim ws As Worksheet
    Dim lRowCount As Long
    Dim targetStart As Range
    
    ' 指定要导出的工作表（根据你的实际表名修改，比如Sheet1）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 指定导出起始单元格
    Set targetStart = ws.Range("A18")
    ' 获取ListBox中实际已填充的行数
    lRowCount = Me.ListBox1.ListCount
    
    ' 先清空目标区域的所有数据，避免残留旧内容
    ws.Range("A18:G36").ClearContents
    
    ' 如果ListBox有数据，再执行导出
    If lRowCount > 0 Then
        ' 只导出ListBox实际行数的内容，匹配7列
        targetStart.Resize(lRowCount, 7).Value = Me.ListBox1.List
    End If
End Sub

代码关键点解释 #

• 获取实际行数：用ListBox1.ListCount拿到ListBox里真正有数据的行数，而不是固定用目标区域的19行（36-18+1）。
• 精准匹配区域：通过Resize(lRowCount,7)把导出区域缩小到和ListBox数据行数一致，避免Excel自动补全多余行。
• 先清空再导出：先清空整个目标区域A18:G36的内容，这样即使ListBox数据很少，剩余的单元格也会是空白，不会出现#N/A或者重复数据。
• 容错处理：加了If lRowCount > 0的判断，避免ListBox为空时执行无效赋值操作。

额外优化（可选） #

如果你的ListBox允许用户删除行后存在空行（比如ListBox里有空白行），可以先过滤掉空行再导出，代码可以改成这样：

Private Sub cmdExport_Click()
    Dim ws As Worksheet
    Dim lRowCount As Long
    Dim targetStart As Range
    Dim arrList As Variant
    Dim filteredArr As Variant
    Dim i As Long, j As Long, filterIndex As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set targetStart = ws.Range("A18")
    lRowCount = Me.ListBox1.ListCount
    
    ws.Range("A18:G36").ClearContents
    
    If lRowCount > 0 Then
        arrList = Me.ListBox1.List
        ' 初始化过滤后的数组，最大长度和原数组一致
        ReDim filteredArr(1 To lRowCount, 1 To 7)
        filterIndex = 0
        
        ' 遍历原数组，过滤掉所有列都为空的行
        For i = 1 To lRowCount
            Dim isEmptyRow As Boolean
            isEmptyRow = True
            For j = 1 To 7
                If arrList(i - 1, j - 1) <> "" Then
                    isEmptyRow = False
                    Exit For
                End If
            Next j
            
            If Not isEmptyRow Then
                filterIndex = filterIndex + 1
                For j = 1 To 7
                    filteredArr(filterIndex, j) = arrList(i - 1, j - 1)
                Next j
            End If
        Next i
        
        ' 如果有过滤后的数据，再导出
        If filterIndex > 0 Then
            targetStart.Resize(filterIndex, 7).Value = filteredArr
        End If
    End If
End Sub

这个优化版本会自动忽略ListBox里的空白行，只导出真正有内容的行，更贴合实际使用场景。

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