向多工作薄中复制内容(加框填充底色筛选隐藏列)

向多工作薄中复制内容(加框填充底色筛选隐藏列)： （通用）向多工作薄中复制内容(对区域全部清除加框填充底色筛选隐藏列).xlsm (36.9 KB, 下载次数: 262)

2018-1-5 16:09 上传

点击文件名下载附件

复制工作薄中指定工作表指定区域的内容到多个工作薄中的特定工作表中的特定区域。

程序会先清理目标工作表中指定的列中的所有内容，还可以指定目标工作表中相应的区域加外框线和填充底色为黄色。还可以筛选指定列的指定内容或清除筛选，隐藏指定列或把列隐藏全取消。

目标工作表名（B4单元格）必须得填，当要给指定区域加框加黄色或是要筛选区域的时候，B5单元格中的内容也必须填。
其他内容如果不填，则不会进行相应的操作。

比如：如果只填B4和B5,B8中的内容，那么会对目标工作表指定区域进行填色和加框的操作。此操作在将源区域中内容复制到目标区域之前操作。

如果只填B4和B5,B9中的内容，则只会对目标工作表进行隐藏指定列。

如果只填B4和B5,B10,B11,B12中的内容，则只会对目标工作表进行指定区域指定列筛选出指定内容。

如果只填B4和B6中的内容，则只会对目标工作表指定列的内容及格式（包括去掉合并单元格）清空。注意B6中填写的区域如果只含有某合并单元格中的部分单元格，会出错。因为excel不能对部分合并单元格进行相关的操作。并且要注意，清空内容及格式会优先其他任何操作。

如果只填B4和B1,B2,B3,B7中的内容，则只会将源区域中内容复制到目标区域。

东西很好，很实用，要是什么时候楼主能做一个excel多薄多表批量打印就太好了。

苏涛 发表于 2016-12-7 19:33
东西很好，很实用，要是什么时候楼主能做一个excel多薄多表批量打印就太好了。

能实现多薄多表批打，但是每个表都要事先设置好打印范围之类的东西，否则如果每个工作表的打印范围不同的话，批量设置起来也没办法设置

因为不懂代码，所以我从网上搜集了1个多薄批打的宏表，只是听说它的实现办法是Excel本身的另存PDF。就是不能按指定的sheet名称打印，不知楼主能不能研究1个按指定的sheet名称实现多薄批打。http://url.cn/42G3sNd

1. Sub 批量将Excel文件转成PDF()
   
2. Dim str As String, n As Long, fd, Nam As String
   
3. On Error GoTo err  '程序出错时则退出
   
4. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5. With fd  '显示一个选择文件夹的对话框，如果选择了文件夹则取其名称，否则退出
   
6.     If .Show = -1 Then t = .SelectedItems(1) Else Exit Sub
   
7. End With
   
8. Application.ScreenUpdating = False  '并闭屏幕更新，提升速度
   
9. str = Dir(t & "\*.xl*")  '开始查找文件，格式为所有Excel文件
   
10. While Len(str) > 0
    
11.     n = n + 1  '累加变量，该变量代表文件数量
    
12.     Workbooks.Open (t & IIf(Right(t, 1) = "", "", "") & str)  '打开工作簿
    
13.     Nam = CreateObject("Scripting.FileSystemObject").getextensionname(str)  '获取文件的扩展名
    
14.     '开始进行格式转换，两个参数分别表示文件名、转换质量。还有转换后是否打开PDF档的参数省略了，表示不查找。
    
15.     ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(t & IIf(Right(t, 1) = "", "", "") & Replace(str, Nam, "pdf")), Quality:=xlQualityStandard
    
16.     Workbooks(str).Close False  '关闭工作簿
    
17.     str = Dir()  '查找下一个
    
18. Wend
    
19.     Application.ScreenUpdating = True  '恢复屏幕更新
    
20. err:
    
21. End Sub
    

复制代码

苏涛 发表于 2016-12-7 19:33
东西很好，很实用，要是什么时候楼主能做一个excel多薄多表批量打印就太好了。

Excel易用宝1.0（完全免费）下载及使用说明
http://www.xipick.com/forum.php? ... 64463&fromuid=1

这个工具里面有一个高级打印功能，能实现多薄多表的打印。

苏涛 发表于 2016-12-8 10:07
因为不懂代码，所以我从网上搜集了1个多薄批打的宏表，只是听说它的实现办法是Excel本身的另存PDF。就是不 ...

如果要指定工作表名称打印，你可以用这个工具：收集多个工作薄中指定名称的工作表或是所有工作表（通用）
http://www.xipick.com/forum.php? ... 40743&fromuid=1

将所有工作薄中要打印的工作表收集到一个工作薄中，然后，再直接打印这个工作薄里面的所有工作表就可以了。

这个方法到是可以用，感谢楼主的帮助解答。

苏涛 发表于 2016-12-7 19:33
东西很好，很实用，要是什么时候楼主能做一个excel多薄多表批量打印就太好了。

批量打印多工作薄中以关键字命名或是表名含关键字的工作表
http://www.xipick.com/forum.php? ... 64812&fromuid=1