¦p¦óÅýÁ`ªíŪ¨ú¨ä¥L¤u§@ªíªº¸ê®Æ
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦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¤Wn¨¯W¦Ñ®v¡A¸U¤À·PÁ¡I |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦^´_ 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- Dim Ar As Variant, E As Variant
- Sheets("Á`ªí").UsedRange.Offset(1).Clear '**²M°£Á`ªí¤¤Â¦³¸ê®Æ
- For Each E In Sheets
- If E.Name <> "Á`ªí" Then
- If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
- Ar(UBound(Ar)) = E.UsedRange.Offset(1)
- End If
- Next
- For Each E In Ar
- With Sheets("Á`ªí").Range("A" & Rows.Count).End(xlUp).Offset(1)
- .Resize(UBound(E), UBound(E, 2)) = E
- End With
- Next
- Range("A2").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.NumberFormatLocal = "[$-404]e/m/d"
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦^´_ 2# GBKEE
¦A½Ð°Ý¤@¤UG¤j¡A¦pªG§Ú¦³Ó¤u§@ªí("¦ì¸m¹Ï")¤£·Q¥[¤JÁ`ªí·í¤¤¡A¬O§_¦³¿ìªk¡A¸U¤À·P¿E¡C |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦^´_ 6# GBKEE
ÁÂÁÂG¤j¡A¦pªG§Ú§â«ö¶s©ñ¦b¦ì¸m¹Ï¡A·|¥X²{«¬ºA¤£²Å¦Xªº°T®§¡A.Resize...........°ÝÃD¥X²{¦b³o¬q¡C |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¦^´_ 10# lpk187
ì¨Ó¬O§Ú§ï¿ù¦a¤è~¸U¤À·PÁÂGBKEE¤j¤j©Mlpk187¤j¤j |
|
|
|
|
|
|
- ©«¤l
- 700
- ¥DÃD
- 275
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-4-10
|
¥»©«³Ì«á¥Ñ av8d ©ó 2016-10-26 00:16 ½s¿è
µo²{¤@Ó°ÝÃD¡AÁ`ªíAÄæ©MBÄæ©ÒÂ^¨ú«áªº®æ¦¡·|¦Û°Ê¾a¥k¡A¥Ø«e»Ý¨D¬O§Æ±æ¯à¾a¥ª¡A§Ú¥ý¼gÓ¥¨¶°¥ý¥Î¡A§Æ±æ¯àª¾¹Dì¦]¡A¸U¤À·PÁ¡C |
|
|
|
|
|
|