6个回答
展开全部
用VBA做了一个 Subtest() Dimi,m,n Application.ScreenUpdating=False Fori=3To33 m=Sheets(i).Range("AS65536").End(xlUp).Row Ifm>5Then Forx=6Tom IfSheets(i).Range("AS"&x)>""Then n=Sheets(2).Range("AS65536").End(xlUp).Row+1 arr=Sheets(i).Range("AD"&x).Resize(1,40) Sheets(2).Range("AD"&n).Resize(1,40)=arr EndIf Next EndIf Next Application.ScreenUpdating=True EndSub实际效果看附件吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询