excel vba 将选中的行的行高变为原来的1.5倍

你可以使用以下 VBA 代码实现：

Sub ChangeRowHeight()
    Dim selectedRows As Range
    Set selectedRows = Selection.EntireRow
    selectedRows.RowHeight = selectedRows.RowHeight * 1.5
End Sub

运行此宏后，选中的行的行高将会变为原来的1.5倍。