如何在VBA函数中设置Excel行高？Sub可行但Function失败求助

问题背景 #

需要根据A列动态生成的二维码关联物品尺寸，参数化调整对应行的RowHeight（不能用硬编码常量）。测试发现：

• VBA Sub过程rr_hite_sub能成功将第2行行高设为50
• 工作表A2单元格调用=rr_hite_func($B2)（B2值为50）时，函数内的三种行高设置方式全部失败
• 相关工作表：qr.txt为源文本表，qr.img为结果表；A3手动设置行高成功，A4通过Function设置失败，A5、A6为空
• 测试环境：Windows XP SP3+Excel 2007、Windows 10+Excel 2010

核心原因 #

Excel的用户定义函数（UDF）有内置安全限制：UDF只能返回值到调用它的单元格，默认不允许修改工作表的结构或格式（包括行高、列宽、单元格格式等）。这个限制是为了防止函数执行时意外修改工作表状态，避免出现循环引用或不可控的格式变更。

可行解决方案 #

方案1：用工作表事件实时触发（推荐） #

利用Worksheet_Change事件，当B列的行高参数变化时，自动调整对应行的行高。

1. 右键qr.img工作表标签 → 选择「查看代码」
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理B列的单元格变更
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        Dim rng As Range
        For Each rng In Intersect(Target, Me.Columns("B"))
            ' 跳过空值或非数值
            If IsNumeric(rng.Value) And rng.Value > 0 Then
                Me.Rows(rng.Row).RowHeight = rng.Value
            End If
        Next rng
    End If
End Sub

之后修改B列的数值，对应行的行高会自动同步更新。

方案2：用按钮触发批量设置 #

如果不需要实时更新，可以添加表单按钮，点击后批量设置行高。

1. 打开「开发工具」选项卡 → 插入「表单按钮」
2. 关联以下Sub过程（粘贴到VBA模块中）：

Sub SetRowHeights()
    Dim lastRow As Long
    Dim i As Long
    ' 获取B列最后一行有数据的行号
    lastRow = ThisWorkbook.Worksheets("qr.img").Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 2 To lastRow ' 假设数据从第2行开始
        With ThisWorkbook.Worksheets("qr.img")
            If IsNumeric(.Cells(i, "B").Value) And .Cells(i, "B").Value > 0 Then
                .Rows(i).RowHeight = .Cells(i, "B").Value
            End If
        End With
    Next i
End Sub

点击按钮即可批量完成行高设置。

方案3：绕开限制的临时办法（不推荐） #

通过Application.OnTime延迟执行Sub过程，绕开UDF的限制，但可能存在稳定性问题：

Function rr_hite_func(heightVal As Double) As Variant
    Dim targetRow As Long
    targetRow = Application.Caller.Row
    ' 延迟执行行高设置
    Application.OnTime Now(), "'SetTargetRowHeight " & targetRow & ", " & heightVal & "'"
    rr_hite_func = "" ' 返回空值避免单元格报错
End Function

Sub SetTargetRowHeight(rowNum As Long, heightVal As Double)
    ThisWorkbook.Worksheets("qr.img").Rows(rowNum).RowHeight = heightVal
End Sub

注意：这种方法可能导致行高更新延迟，频繁修改单元格值时容易触发多次执行，仅作为临时替代方案。

内容的提问来源于stack exchange，提问作者R. Jahn