点击观看视频效果

---

前言

格式刷在我们调整Excel工作表、Word文档的格式时经常使用到，它可以帮助我们快速批量调整字体、大小、颜色、背景色等，甚至是表格行高列宽、字间距大小等。但如果在不同的Excel工作薄或跨Word文档，格式刷却不能使用。
用VBA代码，将样板工作表的行高、列宽的值保存在三维数组内，再按数组值依次调整目标工作表行高、列宽。

---

1.数字转字母

Public Function GetEngName(argColumn As Integer) As String  '数字转字母Dim strEngName As StringDim iNum, iMod As IntegeriNum = argColumn \ 26iMod = argColumn Mod 26If (iMod = 0) ThenIf (iNum = 1) ThenstrEngName = Chr(90)ElsestrEngName = Chr(65 + iNum - 2) + Chr(90)End IfElseIf (iNum =