ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¯S©w½d³ò¤º¤w¨Ï¥Î¦C¼Æ­pºâ

¥»©«³Ì«á¥Ñ ­ã´£³¡ª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


====================

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD