行の高さを設定するマクロ

PERSONAL.XLSB

Sub 高さ()
'
' 高さ Macro
' 行の高さを、カレントセルの高さに設定する。
'
' Keyboard Shortcut: Ctrl+Shift+H
'
    Dim rowNo
    rowNo = ActiveCell.Row
    Dim height
    height = Cells(rowNo, 1)
    Debug.Print height
    
    
    Rows("" & rowNo & ":" & rowNo).Select
    Selection.RowHeight = height
    ActiveCell.Offset(1, 0).Select
End Sub