- ©«¤l
- 2842
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2898
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2025-4-28
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2019-9-11 10:09 ½s¿è
Sub TEST()
Dim xF As Range, xE As Range
With [A1:B10]
Set xE = .Item(.Count) '©w¦ì«ü©w½d³òªº³Ì«á¤@®æ
Set xF = .Find("*", After:=xE, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) '±q³Ì«á¤@®æ©¹¤W§ä«DªÅ
If xE <> "" Then Set xF = xE 'Y³Ì«á¤@®æ«DªÅ, «h¥H¦¹®æ¬°·Ç
End With
MsgBox xF.Row
End Sub
==================== |
|