GBKEE

¦^´_ 2# ashan0418
¥t¤@¼gªk

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer, ii As Long, Ar()
   
4.     Set Rng = Sheets("¦X¨Ö«e").Rows(1).SpecialCells(xlCellTypeConstants)
   
5.     With Sheets("¦X¨Ö«á")
   
6.         .UsedRange.Clear
   
7.         For i = 1 To Rng.Areas.Count
   
8.             If i = 1 Then
   
9.                 Ar = Rng.Areas(i).CurrentRegion
   
10.                 Ar(1, 1) = "N0"
    
11.             Else
    
12.                 With Rng.Areas(i).CurrentRegion
    
13.                     Ar = Range(.Cells(2, 1), .Cells(.Rows.Count, .Columns.Count))
    
14.                 End With
    
15.             End If
    
16.             For ii = IIf(i = 1, 2, 1) To UBound(Ar)
    
17.                 Ar(ii, 1) = Rng.Areas(i).Cells(1)
    
18.             Next
    
19.             With .Cells(.Rows.Count, "A").End(xlUp)
    
20.                 .Offset(IIf(.Row = 1, 0, 1)).Resize(UBound(Ar), UBound(Ar, 2)) = Ar
    
21.             End With
    
22.         Next
    
23.     End With
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# ashan0418
VBA ªº»¡©ú¦h¬Ý¬Ý,·|¶i¨Bªº