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

[µo°Ý] ¨Ì·Ó©Ò«ü©wÄæ¦ì±ø¥ó¦Ó§R°£¸Ó¦C

[µo°Ý] ¨Ì·Ó©Ò«ü©wÄæ¦ì±ø¥ó¦Ó§R°£¸Ó¦C

¦U¦ì¥ý¶i±z¦n
¨Ì·Ó©Ò«ü©wÄæ¦ì±ø¥ó¦Ó§R°£¸Ó¦C¡C
ªþ¥ó¡G·í¡u¦a°Ï1~4¡v¤Î¡u³æ»ù¡vµ¥Äæ¦ìªÅ¥Õ®É¡A«h§R°£¸Ó¦C¡C
·q½Ð¥ý¶i­Ì«ü¾É
«D±`·PÁÂ

AB.rar (2.51 KB)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

«D±`·PÁ«e½ú­Ìªº«ü¾É
°õ¦æOK¤F
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# b9208

  §A¦Û¤v­n¥h«ä¦Ò¤@¤U~ «ç»ò¼Ë¥h­×§ïµ{¦¡½X~ ´N¯à®M¥Î¯à§A¦Û¤vªº»Ý¨D~
  §A´£¥X¨Óªº«~¦W­«ÂÐ/³æ»ù¨S¦³¸ê®Æ~ ­n½ð°£~
  ³o­Ó°ÝÃD~ §A¦Û¤v­n¥h«ä¯Á¤@¤U~ §Aªº«~¦W»P¦a°ÏªºÃö«Y~
  ¦P¤@­Ó«~¦W¦ý¦a°Ï¤£¤@¼Ë~ ¤]­n§R°£¹À??
  °²³]¦p¤Uªº¨Ò¤l:
  11        WE        456121        °ª¶¯        «ÌªF                «n§ë        6        65
  12        WE        456121        °ª¶¯        «ÌªF        ·s¦Ë        «n§ë        6       
  
  «ä¯Á¤@¤U~ §A¯u¥¿­n¯d¤U¨Óªº¸ê®Æ¬O¤°»ò??
  1. Sub EX_1()
  2. A = Application.Max(Sheet1.Range("A65536").End(xlUp).Row, Sheet1.Range("B65536").End(xlUp).Row, Sheet1.Range("C65536").End(xlUp).Row, Sheet1.Range("D65536").End(xlUp).Row, Sheet1.Range("E65536").End(xlUp).Row, Sheet1.Range("F65536").End(xlUp).Row, Sheet1.Range("G65536").End(xlUp).Row, Sheet1.Range("H65536").End(xlUp).Row, Sheet1.Range("I65536").End(xlUp).Row)

  3. For I = A To 2 Step -1
  4.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 Or Sheet1.Cells(I, 9) = "" Then
  5.        Sheet1.Rows(I).Delete
  6.     End If
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 5# b9208
  1. Sub bb()
  2. Dim Rng As Range, A As Range
  3. For Each A In Range("A1").CurrentRegion.Columns(9).SpecialCells(xlCellTypeBlanks)
  4.   If Application.CountA(A.Offset(, -5).Resize(, 4)) = 0 And Application.CountIf(Range("B:B"), A.Offset(, -7)) > 1 Then
  5.      If Rng Is Nothing Then
  6.         Set Rng = A
  7.         Else
  8.         Set Rng = Union(Rng, A)
  9.      End If
  10.   End If
  11. Next
  12. If Not Rng Is Nothing Then Rng.EntireRow.Delete
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh
·PÁÂHsiehª©¥D
µ{¦¡°õ¦æok
¦A½Ð±Ð¦p¨Ì¡ª«~¦W¡ª­«½ÆªÌ¡A¦A§PÂ_«á­±¬O§_¬°ªÅ®æ¦Ó§R°£¸Ó¦C
¦pªþ¥ó
AB2.rar (2.53 KB)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# hugh0620
ÁÂÁ«e½ú«ü¾É
¥i¥H¨Ï¥Î
¦ý¨Ò¥~±¡§Î¬OAÄæ³Ì«á¤@¦C¦pªG¨S¦³¸ê®Æ¡A«h³Ì«á¤@¦CµLªk§PÂ_¡C
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-21 22:40 ½s¿è

¦^´_ 1# b9208
  1. Sub bb()
  2. Dim Rng As Range, A As Range
  3. For Each A In Range("A1").CurrentRegion.Columns(9).SpecialCells(xlCellTypeBlanks)
  4.   If Application.CountA(A.Offset(, -5).Resize(, 4)) = 0 Then
  5.      If Rng Is Nothing Then
  6.         Set Rng = A
  7.         Else
  8.         Set Rng = Union(Rng, A)
  9.      End If
  10.   End If
  11. Next
  12. If Not Rng Is Nothing Then Rng.EntireRow.Delete
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# b9208

§Ú±Ä¥Îªº¬O¥Ñ³Ì«á¤@µ§¸Ó¨Ï³B²z~
³o¼Ë¤ñ¸û²³æ~
¦³´ú¸Õ¹L¤F~ ¨S¦³°ÝÃD~
§A¦A­×§ï¦¨¾A¥Î©ó§A­nªº~
  1. Sub EX_1()
  2. A = Sheet1.Range("A65536").End(xlUp).Row

  3. For I = A To 2 Step -1
  4.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 And Sheet1.Cells(I, 9) = "" Then
  5.        Sheet1.Rows(I).Delete
  6.     End If
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD