返回列表 上一主題 發帖

VBA按鈕問題

VBA按鈕問題

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

[Dear all大大

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

以下是圖一和圖二

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





VBA1.xlsx.rar (16.2 KB)
GOOD BOY

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

TOP

回復 3# 准提部林


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

TOP

回復 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

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