將mulit-column列表框中的值複製到工作表VBA

Question

我有一個列4列（名稱，婚姻狀況，已婚，性別）的列表框。例如，如果列表框包含：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