我有一些VBA代码将数据从用户表单列表框传递到Excel工作表 . 对于列表框中的每个项目，正在将两个重复项写入工作表 . 我的错误是什么？谢谢 .

S = history_lbx.List(0) 'pass purchase history string back to cell
        Dim k As Variant
        For k = 1 To history_lbx.ListCount
            S = S & ", " & history_lbx.List(k - 1)
        Next k
        Cells(j, 5).Value = S
excel vba excel-vba