|
习惯性动作,上传代码:
- Sub 批量删除行()
- Dim mRow As Long, i As Long, arr, brr(), mStr As String, j As Integer
- Dim m As Long: m = 0
- With Sheet1
- mRow = .Cells.Find("*", , , , 1, 2).Row
- arr = .Range("A2:E" & mRow).Value
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 1 To UBound(arr)
- mStr = Left(arr(i, 1), 1)
- If mStr <> "4" And mStr <> "8" And mStr <> "9" Then
- m = m + 1
- For j = 1 To UBound(arr, 2)
- brr(m, j) = arr(i, j)
- Next
- End If
- Next
- With .Range("A2")
- .Resize(mRow, UBound(arr, 2)).ClearContents
- .Resize(m, UBound(arr, 2)).Value = brr
- End With
- End With
- End Sub
复制代码
|
|