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

[µo°Ý] »s§@ñ¨ìï¥d¦í¤F.......

¦^´_ 7# jcchiang ¨C­¶­è¦n1-100,²Ä¤G­¶101-200....¥H¦¹Ãþ±À,¥»½d¨Ò¨ì443µ§,µeªÅ®æ½u¨ì500,­è¦n¤@­¶,ÁÂÁÂ.
§ù¤p¥­

TOP

¦^´_ 11# dou10801

Sub ex()
Dim x%, y%, z%
For x = 1 To WorksheetFunction.RoundUp(Sheets("·|­û¸ê®Æ").[a65535].End(3).Row / 100, 0) * 100 Step 25
   With Sheets("·|­ûñ¨ìï1")
      .[a3].Offset(y, z).Resize(, 3) = Array("½s ¸¹", " ©m¦W", "ñ³¹")
      Cells(x, 1).Resize(25, 3).Copy .[a4].Offset(y, z)
      With .[a3].Offset(y, z).Resize(26, 3)
         .Borders.LineStyle = xlContinuous
      End With
      z = z + 4
      If z = 16 Then z = 0: y = y + 28
   End With
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD