在下一個空白列，導入其他分頁的資料

回寫到第一個空白列

我愛柴柴 2022-02-11 10:10:39 ‧ 690 瀏覽

分享至

圖一

圖二

圖三

想請問大家:
如果我要將圖二的資料自動回寫到圖一的第一個空白列(如圖三)
VBA該怎麼寫比較好? (圖一裡的內容會一直增加資料筆數非固定行數)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2022-02-11 11:16:45

最佳解答

1.複製圖二的資料
2.在圖一移動到最下面的空白列
3.貼上

你可以先手動錄製巨集後
把程式碼貼上來
再來修改成你要的結果

回應 7
分享
檢舉

看更多先前的回應...收起先前的回應...

我愛柴柴 iT邦新手 5 級 ‧ 2022-02-11 11:39:44 檢舉

我有試過這個方法但是會一直覆蓋A5的資料變成固定在A5這個欄位導入圖二的資料所以才想問問有沒有可以讓系統自動判斷第一個空白欄再將圖二資料導入的方法謝謝你^^

我愛柴柴 iT邦新手 5 級 ‧ 2022-02-11 11:43:39 檢舉

另外補充~ 圖二的資料會一直更新
圖一則是需要保留所有圖二資料的分頁所以才需要資料一直往下自動回寫

海綿寶寶 iT邦大神 1 級 ‧ 2022-02-11 11:47:24 檢舉

請教，圖二的資料是？
1.只有一筆
2.跟圖一一樣，一直往下增加

我愛柴柴 iT邦新手 5 級 ‧ 2022-02-11 11:49:20 檢舉

圖二的資料固定只有一筆, 但是每次都會更新內容

海綿寶寶 iT邦大神 1 級 ‧ 2022-02-11 12:09:50 檢舉

試試看合不合用
合用就選最佳解

Sub Main()
    Range("A65535").End(xlUp).Offset(1, 0).Select
    
    ActiveCell.Value = Sheets("11").Range("A1").Value
    ActiveCell.Offset(0, 1).Value = Sheets("11").Range("B1").Value
    ActiveCell.Offset(0, 2).Value = Sheets("11").Range("C1").Value
    ActiveCell.Offset(0, 3).Value = Sheets("11").Range("D1").Value
    ActiveCell.Offset(0, 4).Value = Sheets("11").Range("e1").Value
End Sub