請問前輩們如何分批將表格計算過後批次貼到新的工作表上
- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
Sub TEST()
Dim R&, i&, N&
R = [工作表1!A1].Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To R Step 10
Sheets("工作表1").Cells(i, 1).Resize(10, 10).Copy [工作表2!A1]
N = N + 1
Sheets("工作表3").Cells(2, N + 1).Resize(30) = [工作表2!N1:N30].Value
Next i
End Sub |
|
|
|
|
|
|
|
發表於 2017-5-8 17:39
| 