钻针报废Vba错在哪，谢谢！！！为什么不执行？？？新针入库可执行。。。
Private Sub CommandButton1_Click()
Dim i&, j&
With Sheets("新针登记")
For i = Range("a65536").End(3).Row To 2 Step -1
If Range("i" & i).Value = "入库" Then
j = .Range("a65536").End(3).Row + 1
.Range("a" & j & ":i" & j).Value = Range("a" & i & ":i" & i).Value
Rows(i).Delete
End If
Next i
End With
End Sub
Private Sub CommandButton2_Click()
Dim i&, j&
With Sheets("报废")
For i = Range("a65536").End(3).Row To 2 Step -1
If Range("i" & i).Value = "报废" Then
j = .Range("a65536").End(3).Row + 1
.Range("a" & j & ":i" & j).Value = Range("a" & i & ":i" & i).Value
Rows(i).Delete
End If
Next i
End With
End Sub
IP卡
狗仔卡
发表于 2012-2-7 20:51
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2012-2-7 21:07
楼主
发表于 2012-2-7 21:15
