- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
12#
發表於 2021-4-27 18:41
| 只看該作者
回復 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("編 號", " 姓名", "簽章")
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 |
|
