5.Excel vba开发-插入多行、多列，删除空行

需求：插入多行，多列，删除空行

代码：

'插入多列
Sub InsertMultipleColumns()
    Dim i As Integer
    Dim j As Integer
    ActiveCell.EntireColumn.Select
    On Error GoTo Last
    i = InputBox("Enter number of columns to insert", "Insert Columns")
    For j = 1 To i
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
    Next j
Last:     Exit Sub
End Sub
'如果要在所选单元格之前添加列，请将代码中的 xlToRight 替换为 xlToLeft。

'插入多行
Sub InsertMultipleRows()
    Dim i As Integer
    Dim j As Integer
    ActiveCell.EntireRow.Select
    On Error GoTo Last
    i = InputBox("Enter number of columns to insert", "Insert Columns")
    For j = 1 To i
        Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
    Next j
Last:     Exit Sub
End Sub
'如果要在所选单元格之前添加行，请将代码中的 xlToDown 替换为 xlToUp。

'删除空格
Sub 删除()


Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub