FIND ªº¥Îªk ??

t8899

§Ú·Q§ä V6:V84 ­Ë¼Æ²Ä1­Ó ¤£µ¥©ó0 ªº­È
Set b = Range("v6:v84").Find(What:=???, SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious, LookAt:=xlWhole)

­ã´£³¡ªL

Sub Macro2()
Dim b As Range
With Range("v6:v84")
     .NumberFormatLocal = "||;||;0"
     Set b = .Find(What:="||", LookIn:=xlValues, SearchDirection:=xlPrevious, LookAt:=xlWhole)
     .NumberFormatLocal = "G/³q¥Î®æ¦¡"
     If Not b Is Nothing Then MsgBox b.Address
End With
End Sub

GBKEE

¦^´_ 1# t8899
FIND ¨S¦³¦¹¯à¤O

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, b As Range
   
4.     With Range("v6:v84")
   
5.         For i = .Rows.Count To 1 Step -1
   
6.             If IsNumeric(.Cells(i)) And .Cells(i) > 0 Then
   
7.                 Set b = .Cells(i)
   
8.                 Exit For
   
9.             End If
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X