如何将Excel中不符合条件的不显示？或者将符合条件的重新复制到新的工作表？
发布网友
发布时间：2022-04-25 23:11
共1个回答
热心网友
时间：2023-10-17 07:18
2、可以编写一段vba代码将excel中符合条件的数据复制到另一个工作表：
假设是要查找a列包含xxx的，查到后将该行复制到另一个表。
sub
test()
dim
i&,r&
r=cells(rows.count,1).end(xlup).row
'定位a列最后一行
k=1
'sheet2
的起始行
for
i=1
to
r
'从第一行循环至第最后一行
if
instr(cells(i,1),"xxx")>0
then
'如果a列第i行单元中包含xxx，则将该行复制到表2
range("a"
&
i
&
":z"
&).copy
sheet2.range("a"
&
k)
‘复制第i行至表2
end
if
next
end
sub
