Sub BlankLine()
   'Updated by Nirmal
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "Enter the value"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   Set WorkRng = WorkRng.Columns(1)
   xLastRow = WorkRng.Rows.Count
   Application.ScreenUpdating = False
   For xRowIndex = xLastRow To 1 Step -1
      Set Rng = WorkRng.Range("A" & xRowIndex)
      If Rng.Value = "10000" Then
         Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
      End If
   Next
   Application.ScreenUpdating = True
End Sub

子 BlankLine()
    '由 Nirmal 更新
    声明范围变量 Rng 和 WorkRng
    忽略错误
    xTitleId      = "输入范围"
    设置 WorkRng  = 应用程序.Selection
    设置 WorkRng  = 应用程序.InputBox("范围", xTitleId, WorkRng.Address, 类型: = 8)
    设置 WorkRng  = WorkRng.Columns(1)
    xLastRow     = WorkRng.Rows.Count
    应用程序.屏幕更新 = 假
    循环变量 xRowIndex 从 xLastRow 到 1，步长为 -1
        设置 Rng = WorkRng.Range("A" & xRowIndex)
        如果 Rng.Value = "0" 则
            Rng.EntireRow.Insert Shift: = xlDown
        结束 如果
    结束 循环
    应用程序.屏幕更新 = 真
结束 子