如何将UserForm中ListBox2的选项逐单元格填充至Excel工作表？

我来帮你搞定这个问题！你当前的代码是把所有ListBox2的项目拼接成一个带换行的字符串，然后一次性塞进A1单元格，所以所有内容都挤在同一个格子里啦。咱们调整一下逻辑，让每一项单独对应一行单元格：

修改后的代码如下：

Private Sub CommandButton1_Click()
    Dim rowNum As Long
    Dim ws As Worksheet
    ' 定义目标工作表，避免使用Activate/Select（VBA最佳实践）
    Set ws = ThisWorkbook.Worksheets("Specialist Prices")
    
    ' 可选：清空A列旧数据，防止残留
    ws.Range("A:A").ClearContents
    
    ' 循环ListBox2的每一项，逐行写入A列
    rowNum = 1 ' 从第1行开始
    For rowNum = 1 To ListBox2.ListCount
        ' ListBox的索引从0开始，所以用rowNum-1获取对应项
        ws.Cells(rowNum, 1).Value = ListBox2.List(rowNum - 1)
    Next rowNum
End Sub

关键修改说明： #

• 去掉字符串拼接逻辑：不再把所有项目合并成一个文本，而是直接将每个项目写入单独的单元格
• 避免Activate/Select：直接通过工作表对象ws操作单元格，这是VBA的高效写法，能减少因工作表切换导致的错误
• 逐行赋值：用rowNum跟踪当前要写入的行号，循环一次就把ListBox的对应项写入A列的对应行
• 可选清空旧数据：如果需要每次点击按钮都刷新A列内容，可以保留ws.Range("A:A").ClearContents这行代码

如果你的ListBox2可能为空，这段代码也能正常运行（循环不会执行，A列保持清空或原有状态）。

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