¦p¦ó¥Îvba§R°£¤£¬O·í¤é¤é´Á
- ©«¤l
- 79
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-12-20
- ³Ì«áµn¿ý
- 2022-8-3
|
¦p¦ó¥Îvba§R°£¤£¬O·í¤é¤é´Á
½Ð°Ý¦p¦ó¥ÎVBA
AÄæ¦ì¬°¤é´ÁÄæ¦ì
Y¤£¬O·í¤é¤é´Á«h§R°£¨º¤@¾ã¦C
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# jerrystock
µ¹§A°Ñ¦Ò- Public Sub §R°£_Range()
- b = Date
- 100:
- For Each Ran In Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
- If Ran <> b Then
- ¤u§@ªí2.Rows(Ran.Row).Delete Shift:=xlUp
- GoTo 100
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-12-20
- ³Ì«áµn¿ý
- 2022-8-3
|
¦^´_ 2# lpk187
ÁÂÁ¤j¤j«ü¾É °õ¦æµ{¦¡½X«á¾ãÓEXCEL¨S¦^À³·í¦í »Ýn±j¨îÃö³¬EXCEL
¤é´Á®æ¦¡¬O20150316
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 3# jerrystock
¥i¥H¶Ç§AªºÀɮפW¨Ó¬Ý¶Ü¡H |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# jerrystock - Sub Test()
- Dim i As Long
-
- With ActiveSheet
- '§R°£n¥Ñ«á©¹«e§R
- For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
- If StrComp(.Cells(i, "A").Text, Format(Date, "yyyymmdd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-12-20
- ³Ì«áµn¿ý
- 2022-8-3
|
¦^´_ 5# stillfish00
ÁÂÁ¤j¤j¦^ÂÐ ¥i¥H¦¨¥\°õ¦æ
¥i¥H¦A½Ð±Ð¤@ӺðݬO¦pªGA1Äæ¦ì¬°¼ÐÃD©m¦W B1¼ÐÃD¬°¤é´Á B2¶}©l®æ¦¡¬°2015/03/16½Ð°Ý³o¼ËVBA¦p¦ó§R°£¤£¬O·í¤é¤é´Áªº¤@¾ã¦C
³Â·Ð¤j¤j ÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 6# jerrystock
§Aı±oÀ³¸Ó«ç»ò§ï? |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-12-20
- ³Ì«áµn¿ý
- 2022-8-3
|
¦^´_ 7# stillfish00
§Ú¦³¸Õ¹L«Ü¦h¤èªk ¦]¤£¤F¸Ñ¤~¦bµo°Ý §Ú¦³¸Õ¹L¨Ò¦p
Sub Test()
Dim i As Long
With ActiveSheet
For i = .Cells(.Rows.Count, "B2:B").End(xlUp).Row To 1 Step -1
If StrComp(.Cells(i, "B2:B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
Next
End With
End Sub
¤£À´Äæ¦ì±qB2¶}©l¸ò¤é´Áªí¥Ü
ÁٽФj¤j«ü¾É
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 8# jerrystock
For i = .Cells(.Rows.Count, "B").End(xlUp).Row To 2 Step -1
If StrComp(.Cells(i, "B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
Next |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-12-20
- ³Ì«áµn¿ý
- 2022-8-3
|
¦^´_ 9# stillfish00
·PÁ¤j¤j¦b¦Ê¦£¤¤¦h¦¸¦^ÂФp§Ìªº·M°Ý ¯u¤ßÁÂÁ±zªº«ü¾É ÁÂÁÂ^^ |
|
|
|
|
|
|