請問前輩們如何分批將表格計算過後批次貼到新的工作表上
- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 旗艦版
- 閱讀權限
- 20
- 註冊時間
- 2017-3-22
- 最後登錄
- 2024-3-12
|
請問前輩們如何分批將表格計算過後批次貼到新的工作表上
想請教各位前輩們 VBA的寫法 後輩只會用錄製巨集的方式做 但一直出現問題 好像是循環的地方出現錯誤
由於資料檔案很多 用巨集的方式會方便很多 煩請前輩們能幫忙試試 感激不盡
步驟一 選取A1:J10
步驟二 複製到工作表2的A1:J10
步驟三 複製工作表2的N1:N30(N1:N30是有公式計算的欄位)
步驟四 貼上工作表3 B2:B31的欄位 PS :因為前面工作表二的N1:N30有公式 所以貼上時要貼上"值"
這邊就開始循環
選取A11:J20
複製到工作表2的A1:J10
複製工作表2的N1:N30(N1:N30是有公式計算的欄位)
貼上工作表3 C2:C31的欄位 PS :因為前面工作表二的N1:N30有公式 所以貼上時要貼上"值"
直到沒有資料停止運算
想要做的功用是分別計算工作表1 A:J欄位的10筆資料經過工作表2運算過後把值貼到工作表3上
[attach]27147[/attach]
[attach]27148[/attach]
[attach]27149[/attach]
[attach]27150[/attach] |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
4#
發表於 2017-5-8 17:39
| 只看該作者
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 |
|
|
|
|
|
|
|
- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 旗艦版
- 閱讀權限
- 20
- 註冊時間
- 2017-3-22
- 最後登錄
- 2024-3-12
|
3#
發表於 2017-5-8 15:06
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 旗艦版
- 閱讀權限
- 20
- 註冊時間
- 2017-3-22
- 最後登錄
- 2024-3-12
|
2#
發表於 2017-5-8 12:29
| 只看該作者
論壇好像怪怪的 再補一次
[attach]27147[/attach]
[attach]27148[/attach]
 提問檔案.rar (42.26 KB)
|
-
-
提問檔案.rar
(42.26 KB)
|
|
|
|
|
|
|
