返回列表 上一主題 發帖

VBA按鈕問題

tangandchun3

帖子
19 
主題
5 
精華
0 
積分
69 
點名
0  
作業系統
10 
軟體版本
10 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2018-6-25 
最後登錄
2022-5-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-3-24 18:01 | 只看該作者

VBA按鈕問題

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

[Dear all大大

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

以下是圖一和圖二

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




VBA1.xlsx.rar (16.2 KB)
收藏 分享
GOOD BOY

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-23 
2#
發表於 2019-4-5 13:08 | 只看該作者
資料是什麼??
有沒有包含標題行??
怎麼貼?  覆蓋式??  累積式??

TOP

tangandchun3

帖子
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

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題