作者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/cn.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