ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

Á`ªí.rar (9.2 KB)

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

TOP

¦^´_ 3# av8d


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

TOP

¦^´_ 2# GBKEE

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

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

TOP

¦^´_ 7# av8d
¿ù»~¬O Chart ¨S¦³ Rowsª«¥ó,Worksheet ¤~¦³Rowsª«¥ó
With Sheets("Á`ªí").Range("A" & Sheets("Á`ªí").Rows.Count).End(xlUp).Offset(1)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


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

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

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

TOP

¦^´_ 9# av8d


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

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD