GBKEE

¦^´_ 3# an13755
VBAªº»¡©ú
End ÄÝ©Ê
½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡Cµ¥©ó«ö END+¦V¤WÁä¡BEND+¦V¤UÁä¡BEND+¦V¥ªÁä©Î END+¦V¥kÁä¡C°ßŪ Range ª«¥ó¡C
expression.End(Direction)
expression    ¥²¿ï¡C¦¹¹Bºâ¦¡·|¶Ç¦^ [®M¥Î¦Ü] ²M³æ¤¤ªº¨ä¤¤¤@­Óª«¥ó¡C
Direction    ¥²¿ïªº XlDirection¡C­n²¾©¹ªº¤è¦V¡C
XlDirection ¥i¥H¬O³o¨Ç XlDirection ±`¼Æ¤§¤@¡C
xlDown     ->4
xlToRight  ->2
xlToLeft    ->1
xlUp         ->3

1. Sub Ex()
   
2.     MsgBox Range("B10").End(xlToLeft).Address
   
3.     MsgBox Range("B10").End(1).Address
   
4.    
   
5.     MsgBox Range("B10").End(xlToRight).Address
   
6.     MsgBox Range("B10").End(2).Address
   
7.    
   
8.     MsgBox Range("B10").End(xlUp).Address
   
9.     MsgBox Range("B10").End(3).Address
   
10.    
    
11.     MsgBox Range("B10").End(xlDown).Address
    
12.     MsgBox Range("B10").End(4).Address
    
13.    
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# an13755

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range, R, C
   
3.     Set Rng(1) = [a1:h99]
   
4.     Set Rng(2) = [L1]
   
5.     For Each C In Rng(1).Columns
   
6.         For Each R In C.SpecialCells(xlCellTypeConstants).Areas
   
7.             If R.Cells.Count >= 2 Then
   
8.                 Rng(2).Resize(R.Cells.Count) = R.Value
   
9.                 Set Rng(2) = Rng(2).Offset(, 1)
   
10.             End If
    
11.         Next
    
12.     Next
    
13. End Sub

½Æ»s¥N½X