调整行高

• 我不完全确定，但我认为只允许0.75的倍数。考虑到这一点，利用以下。
• 如果您尝试使用12.6，方法会将它转换为12.75，即0.75的下一个倍数。

Sub Test()
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    Dim rg As Range: Set rg = Range("A1:A2")
    
    AdjustRowHeight rg, 12.75

End Sub

Sub AdjustRowHeight(ByVal rg As Range, ByVal RowHeight As Double)
    
    ' Allow only multiples of '0.75'.
    Dim RH100 As Long: RH100 = INT(100 * RowHeight)
    If RH100 Mod 75 > 0 Then RH100 = (Int(RH100 / 75) + 1) * 75
    
    Dim cell As Range
    Dim H100 As Long
    Dim R100 As Long
   
    For Each cell In rg.Cells
        H100 = cell.RowHeight * 100
        R100 = H100 Mod RH100
        If R100 > 0 Then
            cell.RowHeight = (Int(H100 / RH100) + 1) * RH100 / 100
        End If
    Next cell

End Sub