Question

VBA如何将列表框的值，写到sheet1表格a1:a3单元格

VBA如何将列表框的值，写到sheet1表格a1:a3单元格

Answer 1

    For i = 0 To ListBox1.ListCount - 1
        Sheets("sheet1").Range("A" & (i + 1)) = ListBox1.List(i)
    Next i

Answer 2

if listbox1.listcount>=0 then
for i=0 to listbox1.listcount
thisworkbooks.sheets("sheet1").cells(i+1,1)=listbox1.list(i)
next
end if