- ©«¤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
|
¦^´_ 5# play9091
¬O³o¼Ë¶Ü?- Sub ttt()
- Sheets("Sheet1").Range("E3") = ""
- Sheets("Sheet1").Range("E4").Value = "=AND(TEXT(RIGHT(A11, 8), ""hh:mm:ss"") >= ""02:00:00"",TEXT(RIGHT(A11, 8), ""hh:mm:ss"") <= ""21:30:00"")"
- Set Rng = Range("A10").CurrentRegion
- Rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E3:E4"), Unique:=False
- Set Rng = Rng.SpecialCells(xlCellTypeVisible) '¸ê®Æ°Ï¥i¨£ªºÀx¦s®æ
- If Rng.Count > Rng.Columns.Count Then '¦³¿z¿ï¨ì¸ê®Æ
- 'Rng.Count: ¿z¿ï¨ì¸ê®ÆÁ`¼Æ > Rng.Columns.Count: ¸ê®Æ°Ï¥i¨£Àx¦s®æªºªºÄæ¦ì¼Æ
- Rng.Copy Sheets("SheetX").[A1] '§Anªº¦ì¸m
- End If
- End Sub
½Æ»s¥N½X |
|