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

b9208

¦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)

¤U¸ü¦¸¼Æ: 16

2012-3-21 10:28

hugh0620

¦^´_ 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. 
   
4. For I = A To 2 Step -1
   
5.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 And Sheet1.Cells(I, 9) = "" Then
   
6.        Sheet1.Rows(I).Delete
   
7.     End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 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

b9208

¦^´_ 2# hugh0620
ÁÂÁ«e½ú«ü¾É
¥i¥H¨Ï¥Î
¦ý¨Ò¥~±¡§Î¬OAÄæ³Ì«á¤@¦C¦pªG¨S¦³¸ê®Æ¡A«h³Ì«á¤@¦CµLªk§PÂ_¡C

b9208

¦^´_ 3# Hsieh
·PÁÂHsiehª©¥D
µ{¦¡°õ¦æok
¦A½Ð±Ð¦p¨Ì¡ª«~¦W¡ª­«½ÆªÌ¡A¦A§PÂ_«á­±¬O§_¬°ªÅ®æ¦Ó§R°£¸Ó¦C
¦pªþ¥ó
AB2.rar (2.53 KB)

¤U¸ü¦¸¼Æ: 2

2012-3-21 22:50

Hsieh

¦^´_ 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

hugh0620

¦^´_ 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. 
   
4. For I = A To 2 Step -1
   
5.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 Or Sheet1.Cells(I, 9) = "" Then
   
6.        Sheet1.Rows(I).Delete
   
7.     End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

b9208

«D±`·PÁ«e½ú­Ìªº«ü¾É
°õ¦æOK¤F