Excel VBA 代码：根据单元格数值自动调整行高

下面是一个 Excel VBA 代码示例，可以根据单元格内的数值设置行高：

Sub SetRowHeightBasedOnCellValue()

Dim rng As Range
Dim cell As Range

' 设置要调整行高的区域
Set rng = Range('A1:A10')

' 循环遍历每个单元格，并根据其数值设置行高
For Each cell In rng
    If IsNumeric(cell.Value) Then ' 确保单元格中的值是数字
        If cell.Value > 0 Then ' 如果值大于 0，则将行高设置为值的两倍
            cell.EntireRow.RowHeight = cell.Value * 2
        Else ' 否则将行高设置为默认高度
            cell.EntireRow.RowHeight = 15
        End If
    End If
Next cell

End Sub

在此示例中，我们首先定义要调整行高的区域，然后循环遍历该区域中的每个单元格。如果单元格中的值是数字且大于 0，则将该行的行高设置为该值的两倍。如果单元格中的值不是数字或小于等于 0，则将该行的行高设置为默认高度。