Address(1, 1, , 1)¥Nªí¬O¤°»ò?

rouber590324

DEAR ALL ¤j¤j
1.®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1) => ¦¹³BAddress(1, 1, , 1)¥Nªí¬O¤°»ò?
2.·Ð¤£§[½ç±Ð  THANKS*10000   

Sub AAAAAA()

     Dim E, Rng As Range, ®Æ¸¹ As String, ¼Æ¶q As String, ¤é´Á As String

     With Sheets("fndvfile")

        ®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)

        ¼Æ¶q = .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

rouber590324

Hsieh ¤j¤j
·PÁ±z¸Ô²Ó¤§»¡©ú THANKS*10000

Hsieh

¦^´_ 1# rouber590324

Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
RowAbsolute¦C°Ñ·Ó   
ColumnAbsolute,Äæ°Ñ·Ó
ReferenceStyle¦ì§}¦r¦ê¼Ë¦¡
External¥~³¡°Ñ·Ó
RelativeTo·í¥HR1C1¼Ë¦¡¥B¬°Äæ¦C§¡¬O¬Û¹ï°Ñ·Ó®É¡A¦¹¤Þ¼Æ¬°°Ñ·Ó­ìÂI
©Ò¥HAddress(1,1,,1)
Äæ¦C¬°µ´¹ï°Ñ·ÓªºA1¼Ë¦¡¡A¥B¥]§t¥~³¡°Ñ·Ó¦r¼Ë
¥HRange("A1")¬°¨Ò
Range("A1").Address(1,1)µ²ªG¬°"$A$1"
Range("A1").Address(1,1,,1)µ²ªG¬°"[¬¡­¶Ã¯1]¤u§@ªí1!$A$1"