¦p¦óÅýÁ`ªíŪ¨ú¨ä¥L¤u§@ªíªº¸ê®Æ

av8d

Á`ªí.rar (9.2 KB)

¤U¸ü¦¸¼Æ: 16

2016-10-22 14:59

1.¦p¦óÅýÁ`ªíŪ¨ú¨ä¥L¤u§@ªíªº¸ê®Æ(µª®×¦pªþ¥óÀÉ)? (¦]¬°¨ä¥L¤u§@ªí·|¤£Â_·s¼W¸ê®Æ)

2.·í1.§¹¦¨«á¡A¬O§_¯à¦b­×§ïÁ`ªí¸ê®Æ®É¡A¨ä¥L¤u§@ªí¤]·|¦Û°Ê¦P¨B­×§ï¡H

¥H¤W­n¨¯­W¦Ñ®v¡A¸U¤À·PÁ¡I

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

av8d

¦^´_ 2# GBKEE


    ·PÁÂG¤j¥X°¨¸Ñ¨M°ÝÃD¡A§Ú¦Û¦æ­×§ï¤F¤@¤U¦p¤U¡A¥¿¦¡ªº¼gªkÁÙ­n½ÐG¤jÀ°¦£¡A¦p¤U¡G

¦]¬°AÄæ¬O¤é´Á¡A©Ò¥H§Ú¥Î¥¨¶°¿ý¤U¤F­×§ï©Ò¥H³ºÅܦ¨¤F¡A²Ä14~16¦æ¬O¥¨¶°¿ý»sªº¡C

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

½Æ»s¥N½X

lpk187

¦^´_ 3# av8d


    Range("A2", [A2].End(xlDown)).NumberFormatLocal = "[$-404]e/m/d"

av8d

¦^´_ 2# GBKEE

¦A½Ð°Ý¤@¤UG¤j¡A¦pªG§Ú¦³­Ó¤u§@ªí("¦ì¸m¹Ï")¤£·Q¥[¤JÁ`ªí·í¤¤¡A¬O§_¦³¿ìªk¡A¸U¤À·P¿E¡C

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

av8d

¦^´_ 6# GBKEE

ÁÂÁÂG¤j¡A¦pªG§Ú§â«ö¶s©ñ¦b¦ì¸m¹Ï¡A·|¥X²{«¬ºA¤£²Å¦Xªº°T®§¡A.Resize...........°ÝÃD¥X²{¦b³o¬q¡C

GBKEE

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

av8d

¦^´_ 6# GBKEE


    G¤j¡A©êºp¡A¦A¦¸¥´ÂZ¡A Á`ªí.rar (21.96 KB)

¤U¸ü¦¸¼Æ: 11

2016-10-25 00:05

¥L¶À¦â¼Ð»xªº¦a¤è¬O .Resize(UBound(E), UBound(E, 2)) = E

¦A¦¸³Â·ÐG¤j¡A¸U¤À·P¿E¡C

lpk187

¦^´_ 9# av8d


    §A³o¸Ì
If E.Name <> "Á`ªí" Then
­n§ï¦¨
If E.Name <> "Á`ªí" And E.Name <> "¦ì¸m¹Ï" Then