Excel问题

Question

想制作一张表格，请大神帮忙，当D2格等于已处理时，点击宏，自动剪切D2所在的那一行，粘贴sheet2，每次点击宏，就自动剪切复制，并且不覆盖之前的数据

Answer 1

VBA复制到本表，不是 Sheet2
Sub 已处理复制()
Dim X
If [d2] = "已处理" Then
X = Sheets(2).Range("A65536").End(xlUp).Row
Rows(2).Cut Sheets(2).Cells(X + 1, "a")
End If
End Sub
前提是：本表的A2不能为空
否则复制过后会错行