[已解决]复制工作表

zxb2008

新工作表.rar (148.42 KB, 下载次数: 16)

2017-2-25 11:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2017-2-25 14:45

1. Sub 复制可见单元格()
   
2.     Sheet4.Range("A1:I29880").SpecialCells(xlCellTypeVisible).Copy Sheet1.[A1]
   
3. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub 复制可见单元格()
   
2.     Sheet4.Range("A1:I29880").SpecialCells(xlCellTypeVisible).Copy Sheet1.[A1]
   
3. End Sub

复制代码