作者jimmysunman (湯包)
看板Visual_Basic
標題[VBA ] 如何抓取變動範圍
時間Wed May 26 23:30:54 2021
各位大大好,小弟有個問題請教
因工作需要掃描發票到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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1622043058.A.74D.html
1F：→ Iories: myRow = shet1.range("A1").end(xldown).row 05/27 10:20
2F：→ Iories: shet1.range("H2:N" & myRow).Copy 05/27 10:20
3F：→ jimmysunman: 謝謝大大 搞定了！感恩 05/30 11:07