- ©«¤l
- 19
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-1-13
- ³Ì«áµn¿ý
- 2019-12-27
|
«D±`·PÁÂHsiehª©¥Dªº¦^ÂÐ,¨ä¹ê§Ú³Ìªñè¦b¾Ç²ßVBA,¤]§Q¥Î¤@¨Ç¾÷·|¾Ç²ß¼gVBA,°w¹ï³oÓ°ÝÃD³Ì¥Dn¬O§Ú¼g¤F¤@µ{¦¡½X¦p¤U,¬O§Æ±æ±NÀɮ׶}±Ò«á¶i¦æ½Æ»sªº¤u§@,¦ý¬O¦]¦³¨ÇÀɮצ³³]©w³sµ²,©Ò¥H¥¨¶°run¨ì¨ºÓÀɮ׮ɧY·|¸õ¥X¦p¤Uªº¹ï¸Ü¤è¶ô(¦¹¬¡¶³¡¥]§t¤@өΦhÓµLªk§ó·sªº³sµ²),¨º»ò¸Ó¦p¦ó¦bµ{¦¡½X¤¤×§ï,¨Ï¥¨¶°¯àª½±µ°õ¦æ§¹²¦,ÁÂÁÂ.
Sub ¦C¥XÀÉ®×()
ChDir "C:\Excel ½m²ß\20110126"
file1 = Dir("C:\Excel ½m²ß\20110126\*.xls")
R = 1
Do While file1 <> ""
Workbooks.Open file1
Sheets("ñ¬ù©±©ú²Ó").Range("A33").Select
Rows("2:2").AutoFilter
Rows("3:" & Rows.Count).EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Set s = Selection.Areas
For Each s In Selection.Areas
s.Range("A3").CurrentRegion.Offset(1).Copy _
Workbooks("Book1.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Cells(2)
Next
R = R + 1
Workbooks(file1).Close 0
file1 = Dir '¨ú±o¤U¤@ÓÀɦW
Loop
Workbooks("Book1.xls").Sheets("Sheet1").Rows("2:2").AutoFilter
End Sub
[img][/img] |
|