VBA代码仅打印单个ListBox值，无法输出全列，求技术排查

问题根源 #

你的代码存在三个关键问题，导致只能输出单个值且无法打印完整列数据：

• 数据覆盖：每次循环都给Range("A2")赋值，后续选中项会直接覆盖之前的内容，最终仅保留最后一个选中项。
• 索引错误：循环中使用ListBox1.ListIndex获取数据，但该属性仅返回当前高亮的单个项索引，而非循环中当前遍历的选中项索引x，导致获取的内容不符合预期。
• 未输出整列：仅给单个单元格赋值，没有将ListBox中选中行的所有列（对应原数据B-F列，共5列）完整输出。

修正后的代码 #

Private Sub CommandButton1_Click()
    ' 拉取数据到ListBox，同时确保控件开启多选模式
    Me.ListBox1.List = Worksheets("F8X SUSPENSION LINKS REV2").Range("B7:F22").Value
    Me.ListBox1.MultiSelect = fmMultiSelectMulti ' 若控件属性已设置多选，可省略此行
End Sub

Sub CompleteForm_Click()
    Dim x As Integer
    Dim outputRow As Integer
    Dim targetWs As Worksheet
    
    ' 绑定目标工作表
    Set targetWs = ThisWorkbook.Worksheets("Part Order Form")
    outputRow = 2 ' 从第2行开始输出数据
    
    ' 可选：清空之前的输出内容，避免残留旧数据
    targetWs.Range("A2:F" & targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 遍历所有ListBox项，处理选中内容
    For x = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(x) Then
            ' 将选中行的5列数据一次性写入目标行
            targetWs.Cells(outputRow, "A").Resize(1, 5).Value = Me.ListBox1.List(x)
            outputRow = outputRow + 1 ' 输出行号递增，避免覆盖
        End If
    Next x
End Sub

核心改动说明 #

1. 开启多选模式：通过MultiSelect = fmMultiSelectMulti确保ListBox支持多选（若控件属性面板已设置，可省略此行代码）。
2. 跟踪输出行号：用outputRow变量记录当前输出的行位置，每输出一行就自动递增，彻底解决数据覆盖问题。
3. 整列批量写入：使用Resize(1,5)一次性将选中行的5列数据写入目标工作表，高效且保证数据完整性。

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