¦p¦ó±N¤@Óexcel ©î¦¨¼ÆÓexecl
- ©«¤l
- 76
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¦Ë
- µù¥U®É¶¡
- 2011-9-29
- ³Ì«áµn¿ý
- 2020-8-25
|
¦p¦ó±N¤@Óexcel ©î¦¨¼ÆÓexecl
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-7-23 15:04 ½s¿è
½Ð±Ð¦U¦ì¥ý¶i
1.¦p¦ó±N¤@Óexcel ©î¦¨¼ÆÓexecl,¦pÁ`ªíexcel¤º®e¦³¦n´XÓ¯Z¡A¦p¦ó©î¦¨¨C¯Z¤@ÓexcelÀÉ
2.¦pªG¥i¥H, ¤S±N¨Æ«á ¦U¯ZexeclÀÉ(¥[¤J¦¨ÁZ),¤S¶×¦¨¤@ÓÀɦpÁ`ªí¤¤ªºµ²ªG
½Ð¨D¨ó§U ÁÂÁÂ! |
-
-
1toall.rar
(32.51 KB)
|
max
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 16
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2010-7-26
- ³Ì«áµn¿ý
- 2021-8-5
|
¯uªº¬O°ª¤â
vba¡A§ÚÁÙ¬O»Ýn¦n¦n¾Ç²ß |
|
|
|
|
|
|
- ©«¤l
- 76
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¦Ë
- µù¥U®É¶¡
- 2011-9-29
- ³Ì«áµn¿ý
- 2020-8-25
|
¦^´_ 2# GBKEE
ÁÂÁ±z³o»ò¸ÔºÉ§Ö³tªº¦^ÂÐ,¦³±zÌÀ°§U¯u¦n,ÁÂÁÂ! |
|
max
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# user999 - Option Explicit
- Sub Ex() 'Á`ªí©î¦¨¼ÆÓexecl : Á`ªí»P¦U¦~¯Å¬¡¶Ã¯ ¦s¦b¦P¤@Ó¸ê®Æ§¨
- Dim wSh As Worksheet, i As Integer, wB As Workbook
- Application.DisplayAlerts = False
- Application.ScreenUpdating = False
- Set wSh = Workbooks("Á`ªí.xlsm").Sheets(1) '*** Á`ªí¤w¬O¶}±Òªº ****
- With wSh
- .Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, .Columns.Count), Unique:=True
- 'AÄæ¶i¶¥¿z¿ï :-> ¨S¦³¿z¿ï·Ç«h(CriteriaRange),¥i¿z¿ï¥X¤£«ÂЪº¸ê®Æ
- i = 2
- .AutoFilterMode = False '¨ú®ø [¦Û°Ê¿z¿ï]
- Do While .Cells(i, .Columns.Count) <> "" 'ª½¨ì¨S¸ê®Æ
- Set wB = Workbooks.Add(1) '=°Ñ¼Æ:xlWBATWorksheet '·s¼W¬¡¶Ã¯(¤@±i¤u§@ªí)
- .Cells(1).AutoFilter 1, .Cells(i, .Columns.Count) '[¦Û°Ê¿z¿ï] ²Ä1Äæ ·Ç«h=.Cells(i, .Columns.Count)
- .Range("A1").CurrentRegion.Copy wB.Sheets(1).[a1] '[¦Û°Ê¿z¿ï]¨Ì·Ç«h¿z¿ïªº¸ê®Æ ½Æ»s¨ì Á`ªí
- wB.SaveAs wSh.Parent.Path & "\" & .Cells(i, .Columns.Count) & ".xlsx", FileFormat:=51 '51: ¦sÀɬ° 2007 µL¥¨¶°¬¡¶Ã¯
- wB.Close 'Ãö³¬ÀÉ®×
- i = i + 1 '¤U¤@¦C¸ê®Æ
- Loop
- .AutoFilterMode = False
- .Cells(1, .Columns.Count).EntireColumn = "" '¤u§@ªí³Ì«á¤@Äæ:²M°£¿z¿ï¥X¤£«ÂЪº¸ê®Æ
- End With
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
- Sub Ex1() '¼ÆÓexecl µ²¦X¬°Á`ªí: Á`ªí»P¦U¦~¯Å¬¡¶Ã¯ ¦s¦b¦P¤@Ó¸ê®Æ§¨
- Dim wB As Workbook, wSh As Worksheet, xF As String
- Application.ScreenUpdating = False
- Set wSh = Workbooks("Á`ªí.xlsm").Sheets(1)
- With wSh
- .Range("a1").CurrentRegion.Offset(1).Clear
- xF = Dir(wSh.Parent.Path & "\*.xlsx") '´M§ä wSh.Parent.Path ³o¸ê®Æ§¨ °ÆÀɦW¬°xlsx ªºÀÉ®×
- Do While xF <> ""
- With Workbooks.Open(wSh.Parent.Path & "\" & xF).Sheets(1)
- .Range("a1").CurrentRegion.Offset(1).Copy wSh.Cells(wSh.Rows.Count, 1).End(xlUp).Offset(1)
- .Parent.Close False
- End With
- xF = Dir
- Loop
- .Range("A1").CurrentRegion.Sort Key1:=.Range("A2"), Order1:=xlAscending, Key2:=.Range( _
- "B2"), Order2:=xlAscending, Key3:=.Range("C2"), Order3:=xlAscending, _
- Header:=xlYes, OrderCustom:=1
- .Parent.Save
- End With
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|