kimbal

1. Sub test()
   
2.     Dim lngRowCount As Long
   
3.     Dim lngRowCounter As Long
   
4.     Dim lngRowCountLast As Long
   
5.    
   
6.     lngRowCount = Range("C1").End(xlDown).Row
   
7.    
   
8.     If lngRowCount = 2 Then Exit Sub
   
9.     lngRowCountLast = 1
   
10.    
    
11.    
    
12.     For lngRowCounter = 2 To lngRowCount - 1
    
13.         With Range("A1")
    
14.             If lngRowCounter = lngRowCount - 1 And Not (lngRowCountLast = lngRowCounter - 1) Then
    
15.                 Range(.Offset(lngRowCountLast), .Offset(lngRowCounter)).Merge
    
16.                 Range(.Offset(lngRowCountLast, 1), .Offset(lngRowCounter, 1)).Merge
    
17.             End If
    
18.             If .Offset(lngRowCounter) <> "" Then
    
19.                 If Not (lngRowCountLast = lngRowCounter - 1) Then
    
20.                     Range(.Offset(lngRowCountLast), .Offset(lngRowCounter - 1)).Merge
    
21.                     Range(.Offset(lngRowCountLast, 1), .Offset(lngRowCounter - 1, 1)).Merge
    
22.                 End If
    
23.                 lngRowCountLast = lngRowCounter
    
24.             End If
    
25.         End With
    
26.     Next
    
27. End Sub

½Æ»s¥N½X