Excel设置单元格高度VBA

2019-11-26 14:11:30

Excel中经常遇到需要整体调整单元格高度的情况

当若干行高度不统一的单元格需要一起增加或减小高度时手动处理非常麻烦,可以用以下代码轻松实现

在相应工资表的VBA编辑器中输入以下内容并运行即可

Sub HeightUP()

    Application.ScreenUpdating = False
    spr = InputBox("请输入增加或减小的数值:", , 6)
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
            Rows(i).RowHeight = Rows(i).RowHeight + spr
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

近期文章