各位大大好,小弟有个问题请教
因工作需要扫描发票到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