返回列表 上一主題 發帖

VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格

VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格

各位大大好
請問若想要把附件的SHEET3裡面的B31:H31
                                                               與B33:H33
當執行巨集時會自動貼到SHEET1的B2:G2   
                                             與SHEET2的B:G2
並且每次執行都繪貼到下一格呢??
若能解答不勝感激

範本.rar (22.84 KB)

mony

謝謝owen06 大大 我了解了 謝謝
mony

TOP

回復 2# owen06


    不好意思 請問I=2跟X=2的用意是
   初學者請大大指導 謝謝
mony

TOP

回復 4# jimmy121212
想再請問大大 如附件 與先前一樣還要再加上A36:M36貼到SHEET4要怎麼寫呢 試了好幾次都失敗 懇請大大幫忙 謝謝

複本 Xl0000083.rar (245.25 KB)

mony

TOP

原來是這樣啊 再次感謝owen06 大大  這裡高手多且熱心 難怪受益良多
mony

TOP

回復 6# owen06


   想再請教 如果要將資料貼到另一個WORKBOOK要怎樣寫呢??不好意思 我沒有基礎 試了好久都不行  希望您可以教教我
感恩
mony

TOP

本帖最後由 jimmy121212 於 2013-11-11 17:03 編輯

[attach]16665[/attach]回復 9# GBKEE


   GBKEE大大 小弟試過多次 還是錯誤  小弟厚顏的想請問:dizzy:  不知您可否幫我寫上 我再慢慢對照學習
我要將"外資及其自營"檔案中*每日概算表*�堛�(B37:E37)與(B38:E38)自動複製到檔案*歷史未平倉的(E:H)與(R:U)

  感謝

a外資及自營-1.rar (550.97 KB)

c曆史未平倉.rar (308.11 KB)

mony

TOP

回復 11# GBKEE


謝謝GBKEE大大   
但第二行偵錯範圍超出引索,實在抓不到頭緒
可以請求您直接寫出一個可執行的給我參考比對嗎?拜託了
另外我是要我要將"外資及其自營"檔案中*每日概算表*�堛�(B37:E37)與(B38:E38)自動複製到檔案*歷史未平倉的(E:H)與(R:U)
mony

TOP

回復 13# GBKEE


   抱歉 是第三行  03 .Sheets("活頁簿工作表名稱的 字串")   ->Sheets("OP-外資+")
mony

TOP

回復 15# GBKEE


   喔對  是04.    Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("OP-外資+") '另一個WORKBOOK
超出引索
mony

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題