|
本帖最后由 zjdh 于 2012-3-26 16:00 编辑
yty773436272 发表于 2012-3-25 00:19
朋友,还麻烦你一下,如果我把“M3单元格改为入账人”“N3单元格改为入账时间”,只有这两个单元格里都输 ...
Sub TEST()
On Error Resume Next
ARR = Range("A4:O" & Range("O65536").End(3).Row)
For I = UBound(ARR) To 1 Step -1
If ARR(I, 15) <> "" And ARR(I, 14) <> "" And ARR(I, 13) <> "" Then
If MsgBox("是否将单据: 《 " & ARR(I, 2) & " 》的数据转入【 " & ARR(I, 15) & " 】工作表?", 4 + 32 + 256) = 6 Then
Rows(I + 3).Cut Sheets(ARR(I, 15)).Range("A65536").End(3)(2)
Rows(I + 3).Delete
End If: End If: Next
MsgBox "数据转录结束!"
End Sub
|
|