標題: VBA按鈕問題 [打印本頁]

---

作者: tangandchun3    時間: 2019-3-24 18:01     標題: VBA按鈕問題

本帖最後由 tangandchun3 於 2019-3-24 18:08 編輯

[Dear all大大

本人有個問題想了好久都解決不了,希望各位大大可以幫忙一下

以下是圖一和圖二

圖一是工作表1,他有一個按鈕,也有一些資料在內
這個按鈕按下,如何才能把資料貼上圖二的工作表2
附表一個
謝

[attach]30284[/attach]
[attach]30285[/attach]

[attach]30288[/attach]

---

作者: 准提部林    時間: 2019-4-5 13:08

資料是什麼??
有沒有包含標題行??
怎麼貼?  覆蓋式??  累積式??

---

作者: tangandchun3    時間: 2019-4-6 09:50

回復 3# 准提部林


    不是好明白你說什麼:'(
他只是一些基本資料，我還有一些沒有寫上去。

---

作者: 准提部林    時間: 2019-4-6 10:45

回復 4# tangandchun3

說明得不夠, 也只能猜著寫:
Private Sub CommandButton1_Click()
Dim xArea As Range, xA As Range

Set xArea = Range([F1], Cells(Rows.Count, 1).End(xlUp))   '[工作表1] 有資料的範圍

Set xA = Sheets("工作表2").Cells(Rows.Count, 1).End(xlUp) '[工作表2] A欄最後一筆資料的位置
If xA <> "" Then Set xA = xA(2) '若最後一格不為"空", 取下一個空白格

xArea.Copy xA '貼入(累積式:一直往下增加)
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)