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

[µo°Ý] ¦p¦ó§R°£±a¦³¦X¨ÖÄ檺¸ê®Æ°Ï¶ô

[µo°Ý] ¦p¦ó§R°£±a¦³¦X¨ÖÄ檺¸ê®Æ°Ï¶ô

¥»©«³Ì«á¥Ñ luke ©ó 2013-6-6 07:13 ½s¿è

¦U¦ì¤j¤j

1.[Sheet1ªí]ªº¡uA:JÄæ¡v¬°¤£³W«h¸ê®Æ°Ï, ¨ä¤¤³¡¤ÀÄæ¦ì±a¦³¤@¨Ç¦X¨ÖªºÄæ¦ì
    ¦p¡uB:DÄæ¡v©M¡uG:IÄæ¡v, ¬ù¦³100¦C(¥]§tªÅ¥Õ¸ê®Æ¦C).

2.¦p¦ó¥ý§R°£¾ã¦CªÅ¥Õ¸ê®Æ¦C, µM«á¦ÛAÄæ¤Î(/©Î)FÄæÀx¦s®æ¬°ªÅ¥Õ­È(µL¸ê®Æ)¤¤,
    ¥h°µ§R°£¡uA:EÄæ¡v©M¡uF:JÄæ¡v¸ê®Æ°Ï¶ô, ¦pªþÀÉ[sheet1µ²ªG]ªí©Ò¥Ü:

VBAÀ³¦p¦ó¼g¥X¨Ó

·Ð½Ð¥ý¶i  ¤j¤j«ü¾É
TEST30.rar (22.02 KB)

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-6-7 16:38 ½s¿è

¦^´_ 1# luke
¤gªk·Ò¿û¡A°Ñ¦Ò¬Ý¬Ý
¨ä¹ê¸ò¦³¨S¦³¦X¨ÖÄæ¦n¹³¨SÔ£Ãö«Y
  1. Sub test()
  2.     Dim r As Long, i As Long, ar
  3.     Dim rngDelete As Range
  4.    
  5.     With Sheets("sheet1")
  6.         '¥ý¾ã²zA~E
  7.         r = Application.WorksheetFunction.Max( _
  8.             .Cells(.Rows.Count, "A").End(xlUp).Row, _
  9.             .Cells(.Rows.Count, "B").End(xlUp).Row, _
  10.             .Cells(.Rows.Count, "E").End(xlUp).Row)
  11.         With .Range("A1:E1").Resize(r)
  12.             ar = .Value
  13.             For i = 1 To UBound(ar)
  14.                 If ar(i, 1) = "" Then
  15.                     If rngDelete Is Nothing Then
  16.                         Set rngDelete = .Cells(i, 1).Resize(, .Columns.Count)
  17.                     Else
  18.                         Set rngDelete = Union(rngDelete, .Cells(i, 1).Resize(, .Columns.Count))
  19.                     End If
  20.                 End If
  21.             Next
  22.             If Not rngDelete Is Nothing Then
  23.                 rngDelete.Delete Shift:=xlUp
  24.                 Set rngDelete = Nothing
  25.             End If
  26.         End With
  27.         '¦P¼Ë¨BÆJ¡A¾ã²zF~J
  28.         r = Application.WorksheetFunction.Max( _
  29.             .Cells(.Rows.Count, "F").End(xlUp).Row, _
  30.             .Cells(.Rows.Count, "G").End(xlUp).Row, _
  31.             .Cells(.Rows.Count, "J").End(xlUp).Row)
  32.         With .Range("F1:J1").Resize(r)
  33.             ar = .Value
  34.             For i = 1 To UBound(ar)
  35.                 If ar(i, 1) = "" Then
  36.                     If rngDelete Is Nothing Then
  37.                         Set rngDelete = .Cells(i, 1).Resize(, .Columns.Count)
  38.                     Else
  39.                         Set rngDelete = Union(rngDelete, .Cells(i, 1).Resize(, .Columns.Count))
  40.                     End If
  41.                 End If
  42.             Next
  43.             If Not rngDelete Is Nothing Then
  44.                 rngDelete.Delete Shift:=xlUp
  45.                 Set rngDelete = Nothing
  46.             End If
  47.         End With
  48.     End With
  49.    
  50. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# luke
  1. Sub ex()
  2. Application.ScreenUpdating = False
  3. For i = 1 To 6 Step 5
  4. For j = Cells(Rows.Count, i).End(xlUp).Row To 1 Step -1
  5.    If Cells(j, i) = "" Then Cells(j, i).Resize(, 5).Delete xlShiftUp
  6. Next
  7. Next
  8. Application.ScreenUpdating = True
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# stillfish00


¦^ÂÐstillfish00

ÁÂÁ±z¦A¦¸¨ó§U

¥H¤W

TOP

¦^´_ 3# Hsieh


·PÁ¶Wª©À°¦£

¥H¤U¬O¸I¨ì°ÝÃD:

¦][Sheet1ªí]ªº¡uA:JÄæ¡v¬O¡i¤H¬°¡j²M°£³y¦¨¤£³W«h¸ê®Æ°Ï,
¥»¨Ò­Y¡uAÄæ¡v©Î¡uFÄæ¡v¦³ªÅ¥Õ­È¦p¡yA15¡z¡B¡yF15¡z¡B¡yF16¡z©M¡yF17¡zÀx¦s®æ
´N·|¦³¿ù»~¦p¹Ï©Ò¥Ü:

À³¦p¦ó­×§ï»yªk
TEST30A.rar (21.27 KB)

TOP

¥»©«³Ì«á¥Ñ lilytracy ©ó 2013-6-8 06:30 ½s¿è

¦^´_ 5# luke



¦¹»yªkApplication.ScreenUpdating = False«á, ¥[¤@¥y
  1. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
½Æ»s¥N½X

TOP

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