Excel 将值从mulit列列表框复制到图纸VBA

我有一个列表框，有4列（姓名、婚姻状况、结婚年限、性别）。我需要将列表框的内容复制到第1页。例如，如果列表框包含：Joe，Single，0，Male，那么我需要让单元格A2:D2分别具有值Joe，Single，0，Male。

您可以循环列表框中的行/列，例如：

For r = 0 to ListBox.ListCount - 1
    For c = 0 to ListBox.ListColumns.Count - 1
        Range("A2").Offset(r, c).Value = ListBox.List(r,c)
    Next
Next

---

刚刚将

ListColumns.Count-1

更改为

.ColumnCount-1

For r = 0 to ListBox.ListCount - 1
        For c = 0 to ListBox.ColumnCount - 1
            Range("A2").Offset(r, c).Value = ListBox.List(r,c)
        Next
    Next

---

请在你的问题中提供一个最小的、可验证的、完整的例子。换句话说，让我们看看你到目前为止做了什么？