|
求那位大侠帮忙看看此附件for循环判断代码为什么不能判断,或者有更好的代码,
我是菜鸟级中的菜鸟,谢谢!
要求如下:浇捣明细上的数量,按产品编码 及日期,对应填写到浇捣报表上。但是浇捣报价上的日期是横向的。
Sub XMJHTST()
Dim rrs As Integer
Dim rrA As Integer
Dim a
Sheets("浇捣明细").Activate
For rrs = Range("N65536").End(xlUp).Row To 2 Step -1
For a = 39 To 80
If Sheets("浇捣明细").Range("a" & rrs) = Sheets("浇捣报表").Cells(4, a) Then
Exit For
Else
a = a + 1
End If
Next a
For rrA = Sheets("浇捣明细").Range("Q65536").End(xlUp).Row To 6 Step -1
If Sheets("浇捣明细").Range("a" & rrs) = Sheets("浇捣报表").Cells(rrA, 17) Then
Exit For
Else
End If
Next rrA
Next rrs
End Sub
|
|