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

[µo°Ý] excel vba»yªk¡G§R°£KÄ欰ªÅ¥Õ¤§¦C

[µo°Ý] excel vba»yªk¡G§R°£KÄ欰ªÅ¥Õ¤§¦C

³nÅé:Excel

ª©¥»:2013

¡u²ÄkÄæ¡v¬°ªÅ¥ÕªÌªº¡u¦C¡v¤@«ß§R°£

³o­ÓVBAªº»yªk­n«ç»ò¼g¡H

¨Ò¦p

ªí®æ¦p¤U¡G

  A B C D E F G H I J  K
1 v v v v v v v v v v
2 v v v v v v v v v v    v
3 v v v v v v   v           
4 v                                 
5 v   v   v v   v   v v      v
6 v v v v         v   v       v
7 v     v       v     v          v
8 v     v  v              v  
9 v v v v       v   v v      v

²Ä1, 3, 4, 8¦CªºKÄæ¦ì = ªÅ¥Õ

©Ò¥H²Ä1, 3, 4, 8¾ã¦Cªº©Ò¦³¸ê®Æ¡u§R°£¡v¡AÅý¾ã¦CÀx¦s®æ®ø¥¢«á¡A

¤U­±ªº¸ê®Æ¦Û°Ê©¹¤W²¾¡A¤£¬O«ödelete²M°£¸ê®Æ¤º®e

ÁÂÁÂ

¦^´_ 1# maxmnbqq

¸Õ¸Õ
  1. Sub test()
  2. For i = 9 To 1 Step -1
  3. If Cells(i, 11) = 0 Then
  4.   Cells(i, 11).EntireRow.Delete
  5. End If
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

¦^ÂÐowen06¤j¤j
¦C·|¤@ª½·s¼W¤U¥h¡A¤£¥u9¦C¡A¦@¦³´X¦C¬O¥¼ª¾¼Æ
©Ò¥HµLªk¨Ï¥ÎFor i = 9 to 1

TOP

¦^´_ 2# owen06

¦^ÂÐowen06¤j¤j
¦C·|¤@ª½·s¼W¤U¥h¡A¤£¥u9¦C¡A¡u¦@¦³´X¦C¡v¬O¡uÅܼơv
©Ò¥HµLªk¨Ï¥ÎFor i = 9 to 1

TOP

¦^´_ 4# maxmnbqq
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     'With Range("a1:m50").Columns(11)  '½d³òªº²Ä´XÄæ
  4.      With Range("a1:m50").Columns("k:k")  '½d³òªº²ÄkÄæ
  5.         If .Cells.Count <> Application.Count(.Cells) Then
  6.             .SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp
  7.         End If
  8.     End With
  9. End Sub
½Æ»s¥N½X
  1. SpecialCells ¤èªk  ¯S©w¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

http://blog.xuite.net/hcm19522/twblog/359026428
°Ñ¦Ò

TOP

Sub TEST()
On Error Resume Next '²¤¹L§ä¤£¨ìªÅ¥Õ®æªº¿ù»~
[K:K].SpecialCells(xlCellTypeBlanks).EntireRow.Delete '¨ú±oªÅ¥Õ®æ(¤½¦¡²£¥Íªº""¤£ºâ), §R°£
On Error GoTo 0 '«ì´_°»¿ù¥\¯à
End Sub

TOP

Sub aanb()

Csh = ActiveSheet.UsedRange.Rows.Count      '¥H ¾ã­ÓSHEET³Ì«á¤@µ§¸ê®Æ
For i = Csh To 2 Step -1   '±q³Ì«á­±¶}©l§@·~
If Cells(i, 11) = "" Then Rows(i).Delete  '¦pªGªÅ¥Õ«h§R°£

Next

End Sub

TOP

¦^´_ 1# maxmnbqq
¨ä¹êµª®×´N¦b GBKEE ¥H¤Î ­ã´£³¡ªL ¨â¦ìª©¥Dªº¦^ÂФº¤å¤¤¡G
  1. [K:K].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
½Æ»s¥N½X

TOP

¦bk¦C©w¦ì¡A选择ªÅ­È¡AµM¦Z删°£选择删°£¦æ¡A录¨î¤@个§»¬Ý¬Ý®@

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD