|
With Sheets("提取")
x = .Cells(1, Columns.Count).End(1).Column
If .Cells(1, x) = "" Then x = 0
.Cells(1, x + 1).Resize(UBound(arr), 1) = arr
End With
如果放到第三行:
With Sheets("提取")
x = .Cells(3, Columns.Count).End(1).Column
If .Cells(3, x) = "" Then x = 0
.Cells(1, x + 3).Resize(UBound(arr), 1) = arr
End With
|
|