用VBA插入多行和多列

 如果要在Excel中插入较多的行或列，例如要插入上百行，用普通的操作方法有些繁琐，我们可以用VBA代码来轻松实现这一目的。在VBA编辑器的代码窗口中输入下列代码，运行前先在表格中选择要插入行或列的位置，然后运行代码，在提示窗口中输入要插入的行数或列数即可。

    插入多行：

Sub InsertMultipleRows()
' 在当前选择的单元格或行之上插入多行
      Dim NewRows                           As Long
      Dim CurrentRow                        As Long

      ' 检查当前选择的是否为行或单元格
      If UCase(TypeName(Selection)) <> "RANGE" Then
            MsgBox "请选择行或单元格，以便在其上方插入行。", _
                   vbInformation
            Exit Sub
      End If

      ' 让用户输入要插入的行数
      NewRows = Application.InputBox("请输入要插入的行数", _
                                      "插入多行", 1, , , , , 1)

      ' 如果行数为0或取消
      If NewRows <= 0 Then Exit Sub

      ' 插入相应数量的行
      Rows(Selection.Cells(1).Row & ":" & _
           Selection.Cells(1).Row + NewRows - 1).Insert Shift:=xlShiftDown

End Sub

    插入多列：

Sub InsertMultipleColumns()
' 在当前选择的单元格或列的左方插入多列
      Dim NewColumns                           As Long
      Dim CurrentRow                        As Long

      ' 检查当前选择的是否为列或单元格
      If UCase(TypeName(Selection)) <> "RANGE" Then
            MsgBox "请选择行或单元格，以便在其上方插入行。", _
                   vbInformation
            Exit Sub
      End If

      ' 让用户输入要插入的列数
      NewColumns = Application.InputBox("请输入要插入的列数", _
                                      "插入多列", 1, , , , , 1)

      ' 如果列数为0或取消
      If NewColumns <= 0 Then Exit Sub

      ' 插入相应数量的列
      For i = 1 To NewColumns
          Columns(Selection.Cells(1).Column).Insert Shift:=xlShiftToRight
      Next

End Sub