多列列表框写入工作表.docx

1-1多列列表框写入工作表

#001 PrivateSubUserForm_Initialize()#002DimiRowAsInteger#003

#001 PrivateSubUserForm_Initialize()

#002

DimiRowAsInteger

#003

iRow=Sheet2.Range(A65536).End(xlUp).Row

#004

WithMe.ListBox1

#005

.ColumnCount=7

#006

.ColumnWidths=45,45,45,45,45,30,45

#007

.BoundColumn=1

#008

.ColumnHeads=True

#009

iRow).Address(External:=True)

.RowSource

=

Sheet2.Range(A2:G

#015

iRow=Sheet1.Range(A65536).End(xlUp).Row+1

#016

Fori=1ToListBox1.ColumnCount

#017

Sheet1.Cells(iRow,i)=ListBox1.Column(i-1)

#018

Next

#019 EndSub

#010

End

With

#011

EndSub

#012

Private

Sub