用宏可以吗?
Sub pj()
For i = 1 To 65536
mycheck = Range("d" & i) Like "*" & Cells(1, 1).Value & "*"
If mycheck = True Then
p = p + Range("d" & i).Value
End If
Next
原帖由 flysman2000 于 2007-3-21 22:43 发表
用宏可以吗?
Sub pj()
For i = 1 To 65536
mycheck = Range("d" & i) Like "*" & Cells(1, 1).Value & "*"
If mycheck = True Then
p = p + Range("d&qu ...