韩慧慧的回答：

对Listbox进行操作： Int listbox.AddString ( LPCTSTR Str) ：对listbox的首行添加一个str的文本行,即此时nIndex为0； Int listbox.DeleteString (uint nIndex) ：删除listbox中第nIndex行的文本行，注意nIndex是从0起始的；

君子好球的回答：

是用vba吗，可以先baa列的内容放到数组里，然后调用就可以了 dim i as integer dim max as long dim a() as string max = 20 redim a(max) as string for i = 2 to 20 a(i) = range("b" & i).value next listbox1.items.add (a(i))