VBA中,筛选一列的非空值,然后复制到一个新的工作簿,宏如何写？ – 网络|

‘相关代码如下，粘贴到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