listbox 如何指定多列内容 ?  

• 没有columnSource   属性
• 只有columncount属性
• 可以在rowsource指定一个区域
• 设置列宽度，sheListBox1.ColumnWidths = "50;100;50"    '实测用两种分隔都可以  "50,100,50"

Private Sub UserForm_Initialize()

ListBox1.RowSource = "sheet3!a2:c10"  
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "50;80;50"    '实测用两种分隔都可以  "50,100,50"
ListBox1.ColumnHeads = True           ’设置了heads好像会自动往上找1行

End Sub

更复杂的案例

http://club.excelhome.net/thread-537053-1-1.html

http://club.excelhome.net/thread-1481528-1-1.html

• 增加内容
• ListBox2.AddItem ListBox1.Text
• 删除内容
• ListBox1.RemoveItem ListBox1.ListIndex