关于把数组里面的数据导出的求助

shsonic

在工作中需要把数据导来导去的，其中一个就是按照条件把数据先筛选装入ARR数组，
然后把这个数组里的数据导出到另一个sheet，
但是中间需要空出几列，
有什么办法可以快速粘贴呢？
谢谢

liulang0808

另外也可以使用WorksheetFunction.Index按照列赋值

slonby

直接赋值后插入两列就好了
Sub daochu()
Dim arr
arr = Sheet10.Range("a1:d" & Range("a1").End(xlDown).Row)
Sheet1.Range("a1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
Sheet1.Columns("c:d").Insert Shift:=xlShiftToRight
End Sub

shsonic

liulang0808 发表于 2023-5-25 08:12
另外也可以使用WorksheetFunction.Index按照列赋值

谢谢.
开始没看到图片，我去OPENAI上面咨询了一下，发现速度比以前快了很多。以前按照每个空格填入的方法，改了这个后，时间从1-5秒提高到了0.3秒