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

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

¦^´_ 1# dou10801

¸Õ¸Õ¬Ý
Sub ex()
Dim x%, y%, z%
For x = 1 To Sheets("·|­û¸ê®Æ").[a65535].End(3).Row 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).CurrentRegion
         .Borders.LineStyle = xlContinuous
      End With
      z = z + 4
      If z = 16 Then z = 0: y = y + 28
   End With
Next
End Sub

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 : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD