GBKEE

¦^´_ 2# freeffly
°õ¦æ  ²¾°Êµ{§Ç «á  «ö    [Tab]  Áä ¥i¤@¤@À˵ø

1. Option Explicit
   
2. Sub ²¾°Ê()
   
3.     Dim Rng As Range, n As Integer
   
4.     n = 2 'ActiveCell.Row
   
5.     Do Until Cells(n, 6) = ""                       'ªÅ¥Õ
   
6.         If Cells(n, 6) < 0 Then                     '­t­È
   
7.             If Rng Is Nothing Then                  'RngÅܼƥ¼³]¸m®É
   
8.                 Set Rng = Cells(n, 6)               'RngÅܼƳ]¸m¬°Cells(n, 6)
   
9.             Else
   
10.                 Set Rng = Union(Rng, Cells(n, 6))   ' Union ¤èªk ¶Ç¦^¨â­Ó©Î¦h­Ó½d³òªº¦X¨Ö½d³ò¡C
    
11.             End If
    
12.         End If
    
13.         n = n + 1
    
14.     Loop
    
15.     Rng.Select                                       '¥þ³¡­t­Èªº½d³ò
    
16. End Sub

½Æ»s¥N½X