ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§Q¥ÎVBA«O¯d¯S©w¦r¥Àªº¦C,¦Ó§R°£¨ä¥L?

[µo°Ý] ¦p¦ó§Q¥ÎVBA«O¯d¯S©w¦r¥Àªº¦C,¦Ó§R°£¨ä¥L?

¥»©«³Ì«á¥Ñ leehom ©ó 2015-10-6 21:59 ½s¿è

°²³]¦³¥H¤U´X¦C:


ABCD1251
DFJD1115
EFFE7855
ABCD4754
DGHK5242
ABCD9584
POKD8574
BVGH2547
RTEY4796
ABCD5647
WOIP3254

§Ú·Q«O¯dABCD¦r¥À¶}­ºªº¦C,¨ä¥L«h¾ã¦C§R°£,¨ºÀ³¸Ó«ç»ò°µ©O?ÁÂÁÂ! :D

¦^´_ 1# leehom
¤â°Ê°µ :  excel2010
    ¥\¯à°Ï  ¸ê®Æ>¿z¿ï>'¤£¶}©l©ó' ABCD
    ¿ï¨ú¿z¿ï§¹¸ê®Æ>§R°£¦C>¨ú®ø¿z¿ï
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 1# leehom
°Ñ¦Ò¬Ý¬Ý!
  1. Sub EXabcd()
  2. Dim lastRow As Long: lastRow = ActiveSheet.Cells(rowS.Count, 1).End(xlUp).Row
  3. Dim i As Long, j As Long: j = lastRow
  4. For i = 1 To lastRow
  5.     If Not Cells(i, 1) Like "ABCD####" Then
  6.         rowS(i).Delete 'Shift:=xlUp
  7.         i = i - 1: j = j - 1
  8.     End If
  9.     If j <= i Then Exit Sub
  10. Next i
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_  leehom
¤â°Ê°µ :  excel2010
    ¥\¯à°Ï  ¸ê®Æ>¿z¿ï>'¤£¶}©l©ó' ABCD
    ¿ï¨ú¿z¿ï§¹¸ê®Æ>§R°£¦C ...
stillfish00 µoªí©ó 2015-10-7 18:50


¹ï°Ú,«á¨Ó¤]·Q¨ì³o­Ó¤ñ¸û²Â¦ý²³æªº¤è¦¡!

TOP

¦^´_ 3# no3-taco

ÁÂÁ°Ú,¦ý¦pªG·Q«O¯d²Ä¤@¦CÀ³¸Ó«ç»ò§ï©O?

TOP

¥»©«³Ì«á¥Ñ no3-taco ©ó 2015-10-7 22:02 ½s¿è

¦^´_ 5# leehom

§â¨ä¥L¦C§R±¼´N¥i¥H¯d¤U²Ä¤@¦C¤F

TOP

¦^´_ 6# no3-taco


    §Úªº·N«ä¬O¼ÐÃD¦C,¦]¬°­º¦r¥À«DABCD,©Ò¥H¤]¤@«÷§R°£¤F

TOP

¦^´_ 7# leehom
  1. Sub Test()
  2.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  3.         If Left(Cells(i, 1), 4) <> "ABCD" Then Rows(i).Delete Shift:=xlShiftUp
  4.     Next
  5. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

http://blog.xuite.net/hcm19522/twblog/348057263

TOP

¦^´_ 8# stillfish00

ÁÂÁ°Ú!!!

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD