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

点击观看视频效果

前言

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

1.数字转字母

Public Function GetEngName(argColumn As Integer) As String  '数字转字母
    Dim strEngName As String
    Dim iNum, iMod As Integer

    iNum = argColumn \ 26
    iMod = argColumn Mod 26
    If (iMod = 0) Then
        If (iNum = 1) Then
            strEngName = Chr(90)
        Else
            strEngName = Chr(65 + iNum - 2) + Chr(90)
        End If
    Else
        If (iNum =