Joforn

1. Sub TestCopy()
   
2.   Dim Range1    As Range
   
3.   Dim RangeCopy As Range
   
4.   
   
5.   For Each Range1 In Range("F2:BA2")
   
6.     Select Case Trim$(Range1.Text)
   
7.       Case vbNullString
   
8.       Case "---"
   
9.       Case Else
   
10.         If RangeCopy Is Nothing Then
    
11.           Set RangeCopy = Range1
    
12.         Else
    
13.           Set RangeCopy = Union(RangeCopy, Range1)
    
14.         End If
    
15.     End Select
    
16.   Next Range1
    
17.   
    
18.   If RangeCopy Is Nothing Then
    
19.     MsgBox "¨S¦³¦X¾Aªº³æ¤¸®æ¡I"
    
20.   Else
    
21.     With RangeCopy
    
22.       .Select
    
23.       .Copy
    
24.     End With
    
25.   End If
    
26. End Sub

½Æ»s¥N½X