GBKEE

¦^´_ 1# bhsm
AÄæ¬Û¦Pªº­È ­n»¡©ú¥Õ

GBKEE

¦^´_ 3# bhsm
ÁÙ¦³½æ¶W¤@¨Ö¦^µª   ¨Ï¥Î¤u§@ªí «ü¥O ¸ê®Æ  ->   ¦X¨Ö·Jºâ  «Ü§Öªº

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar1(), Ar2(), xl As Integer, Rng As Range, xF As Range
   
4.     Sheets("¬Û¦P").Move Before:=Sheets(1)
   
5.     ReDim  Ar1(2 To Sheets.Count)
   
6.     ReDim  Ar2(2 To Sheets.Count)
   
7.     For xl = 2 To Sheets.Count
   
8.         With Sheets(xl)
   
9.             Set Rng = .Range("A5", .[A5].End(xlDown)(1, 2))
   
10.             Ar1(xl) = Rng.Address(, , xlR1C1, 1)
    
11.             Set Rng = .Range("E5", .[E5].End(xlDown)(1, 2))
    
12.             Ar2(xl) = Rng.Address(, , xlR1C1, 1)
    
13.         End With
    
14.     Next
    
15.     With Sheets(1)
    
16.         .Cells = ""
    
17.         .[A1] = "¶R¶W"
    
18.         .[A2].Consolidate Sources:=Ar1, Function:=xlCount, TopRow:=False, LeftColumn:=True, CreateLinks:=False
    
19.         .[A2].Consolidate Sources:=Ar1, Function:=xlCount, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    
20.         .[E1] = "½æ¶W"
    
21.         .[E2].Consolidate Sources:=Ar2, Function:=xlCount, TopRow:=False, LeftColumn:=True, CreateLinks:=False
    
22.         .[E2].Consolidate Sources:=Ar2, Function:=xlCount, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    
23.     End With
    
24. End Sub

½Æ»s¥N½X