当要复制EXCEL多行的时候,可以使用Union
dim copyRange as range
set copyRange = nothing
if copyRange is nothing then
set copyRange = sht.range(i & ":" i)
else
set copyRange = union(copyRange,sht.range(i & ":" i))
end if
来源:CSDN
作者:mystert
链接:https://blog.csdn.net/Q215046120/article/details/104126180