ccc919 发表于 2015-5-5 10:15
Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row
Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row
For i = 1 To row1
If Cells(i, 1) Like "2015-4-*" Then
If Cells(i, 6) <> "0" And Cells(i, 6) <> "不合格数" Then
x=x & cells(i,7).value
Worksheets("流程单统计").Range(a).Value =
x
End If
End If
Next
End Sub
这样试试