- ©«¤l
- 102
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 137
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- 12
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-24
- ³Ì«áµn¿ý
- 2018-12-6
|
½Ð°ÝÄæ¦ì½Æ»sªº°ÝÃD
¥»©«³Ì«á¥Ñ tonycho33 ©ó 2012-3-22 11:45 ½s¿è
½Ð°ÝÄæ¦ì½Æ»sªº°ÝÃD
½Ð°Ý¥Ø«e¦³3Ósheet¤À§O¬Oaa1,aa2,aa3
§Ú·Q§âaa3ªºsheetªºYÄæcopy¨ìaa1ªºAÄæ¡A
¦ý¬O¦³±ø¥ó´N¬O
1.aa3ªºYÄæªÅ®æn§R°£
2.aa3ªºAAÄ榳¥X²{"¤w±Æ"¤]n§R°£
3.aa3ªºYÄæ¨ìAAÄæ¬O®M¤½¦¡¶i¨Óªº
¤§«eªº§@ªk¬O·s¼W¤@Ósheet--aa2¡A¥ý¦b³oÃä§@¿ý»s¥¨¶°ªº¿z¿ï
µM«á¦AÂà¨ìaa1
½Ð°Ý¦³§ó²¼äªº¼gªk¶Ü
ÁÂÁÂ
¤§«eªº¥¨¶°¦p¤U- Sheets("aa3").Select
- Columns("Y:AA").Select
- Selection.Copy
- Sheets("aa2").Select
- Columns("F:F").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Cells.Select
- Selection.AutoFilter
- Selection.AutoFilter
- Selection.AutoFilter Field:=6, Criteria1:="="
- Rows("2:2").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Delete Shift:=xlUp
- Selection.AutoFilter Field:=6
- Selection.AutoFilter Field:=8, Criteria1:="¤w±Æ"
- Rows("4:4").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Delete Shift:=xlUp
- Selection.AutoFilter Field:=8
- Cells.Select
- Selection.AutoFilter
- Sheets("aa1").Select
½Æ»s¥N½X |
-
-
Book1.rar
(12.56 KB)
|