请求编写VBA函数实现指定区域尺寸与字号翻倍

以下是满足你需求的VBA宏代码，直接运行即可完成三个优化操作：

Sub OptimizeInfographic()
    Dim targetCols As Range
    Dim targetRows As Range
    Dim targetRange As Range
    Dim col As Range
    Dim row As Range
    Dim cell As Range
    
    ' 定义目标区域（减少重复引用，提升效率）
    Set targetCols = ThisWorkbook.ActiveSheet.Range("BU:HG").Columns
    Set targetRows = ThisWorkbook.ActiveSheet.Range("95:186").Rows
    Set targetRange = ThisWorkbook.ActiveSheet.Range("BU95:HG186")
    
    ' 1. 翻倍BU到HG列的列宽
    For Each col In targetCols
        col.ColumnWidth = col.ColumnWidth * 2
    Next col
    
    ' 2. 翻倍95到186行的行高
    For Each row In targetRows
        row.RowHeight = row.RowHeight * 2
    Next row
    
    ' 3. 翻倍目标区域内单元格的字号
    For Each cell In targetRange
        ' 跳过无有效字号的单元格，避免运行错误
        If cell.Font.Size > 0 Then
            cell.Font.Size = cell.Font.Size * 2
        End If
    Next cell
End Sub

使用步骤： #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 在左侧工程窗口右键点击目标工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择OptimizeInfographic执行

代码细节： #

• 提前定义目标区域变量，避免重复调用工作表对象，提升运行效率
• 遍历整列/整行进行调整，确保所有目标列宽、行高都被统一修改
• 增加字号有效性判断，防止特殊单元格（如空单元格）导致的运行异常

内容的提问来源于stack exchange，提问作者SirTedDanson