UC知道excel高手进，如何将表中列数为6的倍数的列筛选出来或复制出来？
来源：百度知道 编辑：UC知道 时间：2024/07/06 17:28:35
那我怎么把数据复制出去，一复制它又把隐藏的全部复制出来
假设数据有60列，100行。
a101输入 =if(mod(column(),6),"","ok") ,右拖到第60列。
【这一步也可以在VBA中做，为了直观先做出来】
然后写宏
sub sx()
for i=1 to 60
if cells(101,i)<>"ok" then
columns(i).hidden=1
endif
next
end sub
按F5运行后，不为6的倍数的列被隐藏起来了。
另外要写个取消隐藏的宏
sub xs()
columns().hidden=0
end sub
筛选的方法大家说了很多，大多都是可行的，我就不说了，说说你筛选后复制数据的方法：
首先，选中筛选出来后的数据，再按CTRL+G，在弹出的对话框中点“定位条件”按钮，然后在接下来弹出的对话框中选择“可见单元格”后“确定”。
最后再执行“复制”－－“粘贴”就可以了。
你的数据有很多列吗，应该是行吧！这样能筛选出来：在新的一列输入依次输入A、B、C、D、E、F ；然后复制，往下粘贴，再反复复制、粘贴，至到你的数据末行，然后自动筛选，将包含F的选出来就行了·
