Address(1, 1, , 1)¥Nªí¬O¤°»ò?
- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
  
|
Address(1, 1, , 1)¥Nªí¬O¤°»ò?
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 |
|
ù
|
|
|
|
|
- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
  
|
Hsieh ¤j¤j
·PÁ±z¸Ô²Ó¤§»¡©ú THANKS*10000 |
|
ù
|
|
|
|
|