假设数据在a到m列，从第2行开始（表头为第2行），代码如下：
sub
test()
activesheet.range("a2:m999").autofilter
field:=2,
criteria1:="投资"
range("a2:m999").copy
sheets.add
after:=sheets(sheets.count)
range("a2").select
activesheet.paste
end
sub
这个在“知道”上也说不清楚的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024