VBA按鈕問題

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

[Dear all大大

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

以下是圖一和圖二

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

VBA1.xlsx.rar (16.2 KB)

樓主熱帖

GOOD BOY

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2019-4-5 13:08 | 只看該作者

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

TOP

tangandchun3

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: 10
軟體版本: 10
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2018-6-25
最後登錄: 2022-5-9

3^#

發表於 2019-4-6 09:50 | 只看該作者

回復 3# 准提部林

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

GOOD BOY

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 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

TOP