DEAR ALL 大大
1.料號 = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1) => 此處Address(1, 1, , 1)代表是什麼?
2.煩不吝賜教 THANKS*10000
Sub AAAAAA()
Dim E, Rng As Range, 料號 As String, 數量 As String, 日期 As String
With Sheets("fndvfile")
料號 = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)
數量 = .Range(.[D2], .[D2].End(xlDown)).Address(1, 1, , 1)
日期 = .Range(.[E2], .[E2].End(xlDown)).Address(1, 1, , 1)
End With
With Sheet1
Cells(2, 15).Value = Application.Evaluate("=SUMPRODUCT((" & 料號 & "=" & .Cells(2, 2).Address & ")*(" & 日期 & "=" & .Cells(2, 3).Address & "))")
End With
End Sub |
發表於 2017-10-16 09:54
| 
