標題: 請問前輩們如何分批將表格計算過後批次貼到新的工作表上 [打印本頁]

---

作者: eric7765    時間: 2017-5-8 12:18     標題: 請問前輩們如何分批將表格計算過後批次貼到新的工作表上

想請教各位前輩們 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]

---

作者: eric7765    時間: 2017-5-8 12:29

論壇好像怪怪的 再補一次
[attach]27147[/attach]
[attach]27148[/attach]
[attach]27152[/attach]

[attach]27150[/attach]

---

作者: eric7765    時間: 2017-5-8 15:06

謝謝各位  目前用錄製的已經可以完成了

---

作者: 准提部林    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)