GBKEE

¦^´_ 1# av8d
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar As Variant, E As Variant
   
4.     Sheets("Á`ªí").UsedRange.Offset(1).Clear  '**²M°£Á`ªí¤¤Â¦³¸ê®Æ
   
5.     For Each E In Sheets
   
6.         If E.Name <> "Á`ªí" Then
   
7.             If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
   
8.             Ar(UBound(Ar)) = E.UsedRange.Offset(1)
   
9.         End If
   
10.     Next
    
11.     For Each E In Ar
    
12.         With Sheets("Á`ªí").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
13.             .Resize(UBound(E), UBound(E, 2)) = E
    
14.         End With
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# av8d

1. If E.Name <> "Á`ªí" And E.Name <> "¦ì¸m¹Ï" Then
   
2. '
   
3. '
   
4. '
   
5. Sheets("Á`ªí").UsedRange.Columns(1).NumberFormatLocal = "[$-404]e/m/d"

½Æ»s¥N½X

GBKEE

¦^´_ 7# av8d
¿ù»~¬O Chart ¨S¦³ Rowsª«¥ó,Worksheet ¤~¦³Rowsª«¥ó
With Sheets("Á`ªí").Range("A" & Sheets("Á`ªí").Rows.Count).End(xlUp).Offset(1)