当要复制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
当要复制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