excel表格特定行怎么剪切

1.EXCEL录制宏剪切满足指定条件的行,并将剪切的行粘贴到指定行位

Sub AA()

Dim I

For I = 2 To Range("A100").End(xlUp).Row

If Cells(I, "b") = 0 Then

x = WorksheetFunction.CountIf(Range("A100:A65536"), "<>")

Rows(I).Cut Cells(x + 100, "A")

End If

Next

End Sub