将值从多列列表框复制到工作表VBA

Question

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

Answer 1

您可以遍历列表框中的行/列，例如：

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

Answer 2

只是将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