|
你这已是另外一个问题了:
Sub TEST()
ActiveSheet.Unprotect Password:=1
On Error Resume Next
ARR = Range("A4:N" & Range("N65536").End(3).Row + 1)
For I = UBound(ARR) To 1 Step -1
If ARR(I, 14) <> "" Then
If MsgBox("是否将单据:《 " & ARR(I, 2) & " 》的数据转入【 " & ARR(I, 14) & " 】工作表?", 4 + 32 + 256) = 6 Then
Sheets(ARR(I, 14)).Unprotect Password:=1
Rows(I + 3).Cut Sheets(ARR(I, 14)).Range("A65536").End(3)(2)
Sheets(ARR(I, 14)).Protect Password:=1
Rows(I + 3).Delete
End If: End If: Next
MsgBox "数据转录结束!"
ActiveSheet.Protect Password:=1
End Sub |
|