VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格
各位大大好
請問若想要把附件的SHEET3裡面的B31:H31
與B33:H33
當執行巨集時會自動貼到SHEET1的B2:G2
與SHEET2的B:G2
並且每次執行都繪貼到下一格呢??
若能解答不勝感激 |
-
-
範本.rar
(22.84 KB)
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
回復 2# owen06
不好意思 請問I=2跟X=2的用意是
初學者請大大指導 謝謝 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
回復 4# jimmy121212
想再請問大大 如附件 與先前一樣還要再加上A36:M36貼到SHEET4要怎麼寫呢 試了好幾次都失敗 懇請大大幫忙 謝謝 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
|
原來是這樣啊 再次感謝owen06 大大 這裡高手多且熱心 難怪受益良多 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
回復 6# owen06
想再請教 如果要將資料貼到另一個WORKBOOK要怎樣寫呢??不好意思 我沒有基礎 試了好久都不行 希望您可以教教我
感恩 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
本帖最後由 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
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
回復 11# GBKEE
謝謝GBKEE大大
但第二行偵錯範圍超出引索,實在抓不到頭緒
可以請求您直接寫出一個可執行的給我參考比對嗎?拜託了
另外我是要我要將"外資及其自營"檔案中*每日概算表*�堛�(B37:E37)與(B38:E38)自動複製到檔案*歷史未平倉的(E:H)與(R:U) |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

|
回復 13# GBKEE
抱歉 是第三行 03 .Sheets("活頁簿工作表名稱的 字串") ->Sheets("OP-外資+") |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3

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