PTT數位生活區 / Visual_Basic

[VBA ] 如何抓取變動範圍

看板Visual_Basic作者 (湯包)時間3年前 (2021/05/26 23:30), 編輯推噓0(0推 0噓 3→)
留言3則, 2人參與, 3年前最新討論串1/1
各位大大好,小弟有個問題請教 因工作需要掃描發票到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
→
05/27 10:20, 3年前 , 1F
myRow = shet1.range("A1").end(xldown).row
05/27 10:20, 1F
→
05/27 10:20, 3年前 , 2F
shet1.range("H2:N" & myRow).Copy
05/27 10:20, 2F
→
05/30 11:07, 3年前 , 3F
謝謝大大 搞定了！感恩
05/30 11:07, 3F
‣ 更多 jimmysunman 的文章
文章代碼(AID): #1WhccoTD (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 jimmysunman 的文章
文章代碼(AID): #1WhccoTD (Visual_Basic)