'相關代碼如下，粘貼到sheet1的VBA里面，A列非空，則整行復制到SHEET2中。subaa
k=cells(row.count,1).end(xlup).row
foreachrnginrange("a2:a"&k)
ifrng""then
rng.entirerow.copysheet2.range("a"&sheet2.cells(row.count,1).end(xlup).row+1)
endif
next
endsub
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang