再次麻煩 Hsieh 大大

gn00487767

關於大大之前給小弟的參考資料
其中 H13 的儲存格 會隨著 編號變動自己帶出資料
小弟要把 H13 的資料 隨著你給小弟的VBA碼變動
再複製到 帶出資料 工作表的B欄 (從B2到最後)
應該怎麼修改呢

因為裡面用的
Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("表格")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '預覽
     .PrintOut '列印
    End With
Next
End With
會自動執行到最後
小弟要在自動執行裡面再多一排自動執行到最後
但要反過來變成同一個儲存格要複製到別欄到最後
變成每印一張就把裡面的H13複製 帶出資料 工作表的B欄 (從B2到最後)
小弟自行修改可是結果都不是小弟需要的
會一直重複

所以要再麻煩大大了

gn00487767

回復 7# Hsieh


    麻煩大大了
因為您之前給小弟的筆誤的程式碼
小第有用說明找尋意思
因為小弟真的是看不懂
所以....
請大大包含囉

Hsieh

回復 6# gn00487767
程式碼給你，希望你能確實瞭解程式碼意義
相信我這個筆誤，如果你有確實瞭解程式碼，要自行修改並不是問題

gn00487767

回復 5# Hsieh


    感謝 Hsieh 大大
小弟測試過後 能夠正常使用 也就是小弟的需求
小弟還以為沒辦法做到這樣 讓小弟不知所措呢
再次感謝 Hsieh 大大 為小弟排除困難

Hsieh

回復 3# gn00487767
筆誤
sheets("帶出資料").[B65536].end(xlup).offset(1,0)=.[H13].value

gn00487767

如小弟之前發問的問題
http://forum.twbts.com/thread-2703-1-1.html

若小弟的需求無法做到的話
那可否換個方式
把帶出來的資料
再分別傳回原本資料表的最後一欄

gn00487767

回復 2# Hsieh


    大大抱歉 小弟測試後 他只是在C1的地方一值顯示而已
並不會存在B2...B3...B4...一直到没資料呢
再次麻煩大大了

Hsieh

Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("表格")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '預覽
     .PrintOut '列印
sheets("帶出資料").[B65536].end(xlup).offset(,1)=.[H13].value
    End With
Next
End With