返回列表 上一主題 發帖

請問前輩們如何分批將表格計算過後批次貼到新的工作表上

請問前輩們如何分批將表格計算過後批次貼到新的工作表上

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

論壇好像怪怪的 再補一次
[attach]27147[/attach]
[attach]27148[/attach]
提問三.png
2017-5-8 12:29


提問檔案.rar (42.26 KB)

提問檔案.rar (42.26 KB)

TOP

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

TOP

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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題