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

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

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-4 13:06 | 只看該作者

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

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

範本.rar (22.84 KB)

樓主熱帖

mony

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-11-4 13:57 | 只看該作者

回復 1# jimmy121212

試試

複本 Xl0000083.rar (228.68 KB)

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

論壇贊助勳章

3^#

發表於 2013-11-4 20:26 | 只看該作者

謝謝owen06 大大我了解了謝謝

mony

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

論壇贊助勳章

4^#

發表於 2013-11-4 20:55 | 只看該作者

回復 2# owen06

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

mony

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

論壇贊助勳章

5^#

發表於 2013-11-4 23:08 | 只看該作者

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

複本 Xl0000083.rar (245.25 KB)

mony

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2013-11-5 08:17 | 只看該作者

回復 5# jimmy121212

不好意思，昨天那樣寫的太笨了，換成這樣會比較方便。
另外你問程式裡的I跟X是什麼意思，其實沒什麼特別意思，個人習慣而已，
要設什麼都隨個人喜好，不要衝突到就好。
簡單的說，FOR …... NEXT，是一迴圈的方式，
FOR X = 1 TO 10
CELLS(X ,3)=10
NEXT
你用F8下去逐步執行，就會發現(1,3), (2,3)一直到(10,3)的儲存格都逐個變成10，
這就是迴圈，但是因為你有限定到10，所以他不會在(11,3)執行指令。
而我設的 For X = 2 To Application.CountA(Sheet2.[A:A]) + 1
他就可以用公式去計算出範圍，讓X的最大值成為一個變數，
你可以在即時運算視窗輸入『?Application.CountA(Sheet1.[A:A]) + 1』
去看看每次有新增資料時，他算出來的答案是不是有所不同。
不過早上想想這個方法挺呆的，你用附檔的這個語法簡單明暸多了。
以上都是本版上面的大大教的，來這真的會獲益良多哦~

複本 Xl0000083.rar (244.76 KB)

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

論壇贊助勳章

7^#

發表於 2013-11-5 09:31 | 只看該作者

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

mony

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

論壇贊助勳章

8^#

發表於 2013-11-9 21:48 | 只看該作者

回復 6# owen06

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

mony

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-11-10 10:21 | 只看該作者

回復 8# jimmy121212

Private Sub CommandButton1_Click()
Dim Sh(1 To 4) As Worksheet
Set Sh(1) = Workbooks("a.xls").Sheets("Sheet1") '另一個WORKBOOK
Set Sh(2) = Workbooks("a.xls").Sheets("Sheet2") '另一個WORKBOOK
Set Sh(3) = Workbooks("a.xls").Sheets("Sheet4") '另一個WORKBOOK
Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '資料檔WORKBOOK
Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
Sh(2).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B33:H33].Columns.Count) = Sh(4).[B33:H33].Value
Sh(3).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[a36:m36].Columns.Count) = Sh(4).[a36:m36].Value
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

10^#

發表於 2013-11-11 17:00 | 只看該作者

本帖最後由 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