stillfish00

¦^´_ 1# ciboybj

1. Function GetLastRow(rng As Range) As Long
   
2.   Dim rngFind As Range
   
3.   
   
4.   Set rngFind = rng.Find(what:="*", Searchorder:=xlByRows, SearchDirection:=xlPrevious)
   
5.   If Not rngFind Is Nothing Then
   
6.     GetLastRow = rngFind.Row
   
7.   Else
   
8.     Err.Raise vbObjectError + 1025, "GetLastRow()", "½d³ò¤º§ä¤£¨ì¥ô¦ó¸ê®Æ"
   
9.   End If
   
10. End Function

½Æ»s¥N½X

1. Sub Test()
   
2.   MsgBox GetLastRow(ActiveSheet.[B:G])
   
3. End Sub

½Æ»s¥N½X