Excel技能树系列10：拿来就用的宏代码17条

这里有一部分拿来就用的宏代码，可以先观看目录看看是否有需要的。

1. 取消隐藏所有的行和列
2. 对所有合并单元格取消合并
3. 以当前时间为名字保存工作簿
4. 将每张工作表单独保存为一个PDF文件
5. 将工作簿保存为一个PDF文件
6. 保护所有带公式的单元格
7. 给选定区域交替高亮显示，增加可读性
8. 高亮显示所有带评论的单元格
9. 在选定区域内高亮显示所有的空单元格
10. 重新调整所有的图表为同样大小
11. 给当前工作簿创建备份
12. 一次性关掉所有打开的工作簿
13. 将选中区域保存为PDF文件
14. 删除选中单元格区域的空格字符
15. 将选定区域内的空白单元格以0填充
16. 合并多个工作表
17. 合并多个Excel文件

对于Excel来说，只需要按住Alt + F11就可以打开宏编辑器，然后点击插入->模块菜单，将代码复制进去，适当修改就可以使用了。对于WPS表格需要升级为专业版本，并且安装VBA支持才可以运行宏代码。

---

'取消隐藏所有的行和列
Sub UnhideRowsColumns()
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
End Sub

'对所有合并单元格取消合并
Sub UnmergeAllCells()
ActiveSheet.Cells.UnMerge
End Sub

'以当前时间为名保存Excel文件
Sub SaveWorkbookWithTimeStamp()
Dim timestamp As String
timestamp = Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-ss")
    ThisWorkbook.SaveAs "目录绝对路径" & timestamp
End Sub

'将每张工作表单独保存为一个PDF文件
Sub SaveWorkshetAsPDF()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ExportAsFixedFormat xlTypePDF, "目录绝对路径" & ws