【问】i列》关键词》所在行》批量自动》剪切到》同工作表第30行以下后》清空所有空行

youxianwei

【问】i列》关键词》所在行》批量自动》剪切到》同工作表第30行以下后》清空所有空行

Sub i列》关键词》所在行》批量自动》剪切到》同工作表第30行以下后》清空所有空行()

  Dim findcell As Range
   Dim fr%
    Set findcell = Sheet1.Range("I:I").Find("天津")
  Do
    If Not findcell Is Nothing Then
      fr = findcell.Row
      n = n + 1
      findcell.EntireRow.Cut Sheet1.Cells(30 + fr + n, 1)
        'findcell.EntireRow.Delete   '每次剪切行号会变化这样不好，还是全部剪切完了再统一
      Else
      MsgBox "没查到相关内容"
     End If
  Loop Until n = 100   '循环100次

'选择I列》定位条件》空值》删除整行
    Columns("I:I").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=6

End Sub