我一般是使用UsedRange，直接复制到数组中处理，例如：
arr = Sheets("数据").UsedRange
for i = 1 to ubound(arr)
for j = 1 to ubound(arr,2)
msgbox "arr("& i & "," & j &")=" & arr(i,j)
next i
next i
Rng.SpecialCells(xlCellTypeLastCell)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024