- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
¥Îì¨Óªºµ{¦¡½X, 300¤H¤]¤£¶·ªá¦h¤[®É¶¡, ¦b¶}ÀY¥[¤J:
Application.ScreenUpdating = False
§Y¥i¥[§Ö~~
=======================================
¥ý¥Î[¿z¿ï]¤èªk¸Õ¸Õ:
µù¡Gµ{¦¡½X¨Ã¥¼¦Û°Ê²£¥Í¤u§@ªí, Y¦³¨ä¥¦¬ì¥Ø, ¶·¦Û¦æ¤â°Ê«Ø¥ß¬ì¥Ø¤u§@ªí,
¡@¡@¨Ã¦b Array("^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì") ¤¤¼W¥[¬ì¥Ø¦WºÙ
Sub ¦¨ÁZªí¤ÀÃþ()
Dim Sht As Worksheet
For Each Sht In Sheets(Array("^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì"))
Intersect(Sht.[A:G], Sht.UsedRange).Offset(1, 0).ClearContents '²M°£¤º®e
With Intersect(Sheets("¦¨ÁZªí").[A:F], Sheets("¦¨ÁZªí").UsedRange)
.AutoFilter Field:=3, Criteria1:=Sht.Name '¥H¤u§@ªí¦WºÙ¿z¿ï
.Columns(1).Offset(1, 0).Resize(, 6).Copy Sht.[A2] '½Æ»sA~EÄæ
.Columns(6).Offset(1, 0).Copy Sht.[G2] '½Æ»s³ÆµùÄæ
End With
Next
Sheets("¦¨ÁZªí").AutoFilterMode = False
End Sub
Sub ²MªÅ¥»ªí()
Intersect([A:G], ActiveSheet.UsedRange).Offset(1, 0).ClearContents
End Sub
Sub ²MªÅ¦U¤ÀÃþªí()
Dim Sht As Worksheet
For Each Sht In Sheets(Array("^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì"))
Intersect(Sht.[A:G], Sht.UsedRange).Offset(1, 0).ClearContents
Next
End Sub
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡× |
|