[VBA ] 如何抓取變動範圍

[jimmysunman (湯包)]

各位大大好,小弟有個問題請教

因工作需要掃描發票到EXCEL做計算
掃描的資料已分別用公式抓取到各欄位
再複製到表2做統計
但每次掃描的物件數量不同
該怎麼編寫這個範圍好複製到表2呢?

https://imgur.com/sslH9ga

圖為檔案畫面
問題在於我要怎麼把H2,N2向下有資料的複製起來到表2
小弟寫了以下，該怎麼加入這塊完成呢?

Sub copy1()
    Dim shet1 As Worksheet
    Dim shet2 As Worksheet

    Set shet1 = Worksheets("A")
    Set shet2 = Worksheets("B")

shet1.Range("H33:L33").Copy  <-請略過這是抓另一個資料

If shet2.Range("a1") = Empty Then
    shet2.Range("a65536").End(xlUp).PasteSpecial xlPasteValues

Else

    shet2.Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End If

Application.CutCopyMode = False

End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.251.124.239 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1622043058.A.74D.html
→ Iories: myRow = shet1.range("A1").end(xldown).row
→ Iories: shet1.range("H2:N" & myRow).Copy
→ jimmysunman: 謝謝大大 搞定了！感恩