VBA跨Excel工作薄，按照Excel工作表样板表行高、列宽值调整目标工作表行高、列宽

本文主要是介绍VBA跨Excel工作薄，按照Excel工作表样板表行高、列宽值调整目标工作表行高、列宽，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

点击观看视频效果

---

前言

格式刷在我们调整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 = 

这篇关于VBA跨Excel工作薄，按照Excel工作表样板表行高、列宽值调整目标工作表行高、列宽的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---