GBKEE

¦^´_ 3# like_azure

1. For Each theArea In rng.Areas
   
2.         '¹M¾ú¦UAREAªº¦U¦C
   
3.         For Each theRow In theArea.Rows
   
4.             theRow.Select       '¿ï©w¦¹¦C
   
5.             MsgBox theRow.Cells(1).Address                  'Åã¥Ü¦¹¦C²Ä1Ä檺¦ì§}
   
6.             MsgBox theRow.Cells(theRow.Count).Address       'Åã¥Ü¦¹¦C³Ì«á1Ä檺¦ì§}
   
7.         Next
   
8.     Next

½Æ»s¥N½X