GBKEE

¦^´_ 3# funnydisk
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Integer
   
4.     R = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row)
   
5.     Range("a1:b" & R).Select
   
6. End Sub

½Æ»s¥N½X