胡子作品：四个excel宏

'胡子作品：四个excel宏_设置行高列宽
'━━━━━━━━━━━━━━━━━━━━━━━━━

Sub 增大行高()
    on Error Resume Next
    Selection.RowHeight = Selection.RowHeight + 1
End Sub

Sub 减小行高()
    on Error Resume Next
    Selection.RowHeight = Selection.RowHeight - 1
End Sub

Sub 自动列宽()
    on Error Resume Next
    'Range( "A1:N100 ").Columns.AutoFit
    'Selection.Columns.AutoFit
    ActiveSheet.Cells.EntireColumn.AutoFit '自动调整列宽
End Sub

Sub 自动行高()
    on Error Resume Next
    'Range( "A1:N100 ").Columns.AutoFit
    'Selection.Columns.AutoFit
    'Selection.Rows.AutoFit
    Selection.WrapText = True    '自动折行
    ActiveSheet.Cells.EntireRow.AutoFit '自动调整行高
End Sub