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

VBA§R°£©T©w¦C¼Æ

VBA§R°£©T©w¦C¼Æ

§R°£©T©w¦C¡A
1~16¦C
59~74¦C
117~132¦C
.
.
.
¸ê®Æ«e­±16¦C­n§R°£¡A58¦C¬°¤@­Ó°Ï¶¡¡A½Ð°ÝVBA¦p¦ó¼g

§R°£©T©w¦C¡A
1~16¦C
59~74¦C
117~132¦C
.
.
.
¸ê®Æ«e­±16¦C­n§R°£¡A58¦C¬°¤@­Ó°Ï¶¡¡A½Ð°ÝVBA¦p¦ó¼g
samwang µoªí©ó 2013-10-31 08:54
  1. Sub Ex()
  2.     With Sheets(1)
  3.         .Range("A117:A132").EntireRow.Delete
  4.         .Range("A59:A74").EntireRow.Delete
  5.        .Range("A1:A16").EntireRow.Delete
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# c_c_lai

    ÁÂÁ±zªº¦^ÂСA¸ê®Æ¦³¤W¤dµ§¡A½Ð°Ý¦p¦ó°µ

TOP

¦^´_ 3# samwang
¥ý»¡»¡§A¹ï¦¹®×ªº³B²z¤è®×¡I

TOP

¦^´_ 4# c_c_lai


   §Ú±q§Ú­Ìªºserver download ¸ê®Æ¡A¸ê®Æ·|¦³¤W¤dµ§¡A¦ý¬O«e­±ªº16¦C¬O¨S¦³¥Îªº¡A±µµÛ42¦C¬O¦³¥Îªº¡A¤@ª½­«½Æªºµ²§ô
²{¦b§Ú¬O¥Î¤â°Ê¥h§R°£¤@µ§µ§³v¤@§R°£«Ü¯Ó®É¡A·Q¥ÎVBA¸Ñ¨M¡AÁÂÁÂ

TOP

¦^´_  c_c_lai


   §Ú±q§Ú­Ìªºserver download ¸ê®Æ¡A¸ê®Æ·|¦³¤W¤dµ§¡A¦ý¬O«e­±ªº16¦C¬O¨S¦³¥Îªº¡A±µµÛ ...
samwang µoªí©ó 2013-10-31 11:06

§Aªº·N«ä¬O»¡¡A¦b¨C¤@¦¸±q server download ¸ê®Æ¡A¸ê®Æ·|¦³¤W¤dµ§¡A¦ý¬O«e­±ªº16¦C¬O©T©w¨S¦³¥Îªº¡A±µµÛ42¦C (17 ~ 58) ¬O¦³¥Îªº¡H
¦p¦¹¤£°±¦a¥H¦¹­ì«h©T©w¥h³B²z download ªº¸ê®Æ¿ý¡H

TOP

¦^´_ 6# c_c_lai
¬Oªº¡A¥u¯à¤â°Ê³v¤@§R°£¸ê®Æ

TOP

­n¥Ñ¤U ©¹¤W§R°£  row  ¤~¤£·|¶]±¼

TOP

½Ð¸Õ¸Õ¬Ý¤U¦Cµ{¦¡¡G
  1. Sub delRows()
  2.     Dim i&, j&, x%, y%
  3.     j = Range("a1").End(xlDown).Row
  4.     MsgBox "j = " & j
  5.     j = j / 42
  6.     MsgBox "New j = " & j
  7.     x = 1
  8.     y = 16
  9.     For i = 1 To j
  10.         If i = 1 Then
  11.             Rows(x & ":" & y).Select
  12.             Selection.Delete Shift:=xlUp
  13.         Else
  14.             x = x + 42
  15.             y = y + 42
  16.             Rows(x & ":" & y).Select
  17.             Selection.Delete Shift:=xlUp
  18.         End If
  19.     Next i
  20. End Sub
½Æ»s¥N½X
George Ma

TOP

¦^´_  c_c_lai
¬Oªº¡A¥u¯à¤â°Ê³v¤@§R°£¸ê®Æ
samwang µoªí©ó 2013-10-31 15:57

¥u­n±N¥H¤Uµ{¦¡½X®M¤J¨ì§Aªºµ{¦¡¤º´N OK ¤F¡I
  1.     With Sheets(1)
  2.         '  ¥Ñ³Ì©³³v¨B©¹¤W§R°£ Rows «K¤£·|¶Ã±¼¤F¡I
  3.         .Range("A117:A132").EntireRow.Delete
  4.         .Range("A59:A74").EntireRow.Delete
  5.        .Range("A1:A16").EntireRow.Delete
  6.     End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD