各位大大好,小弟有個問題請教
因工作需要掃描發票到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