求助大侠做一个保存单据数据的代码

莱柯007

我自己做了一个订单的模板，想用VBA把数据保存下来，麻烦大侠帮忙解决一下，

isolate1

Sub te()
    Dim arr, brr(), i%, k%, crr
    arr = Sheet1.Range("a6", Sheet1.[i6].End(xlDown))
   
    For i = 1 To UBound(arr)
        ReDim Preserve brr(1 To UBound(arr), 1 To 9)
        k = k + 1
        brr(k, 1) = arr(i, 1)
        brr(k, 2) = arr(i, 2)
        brr(k, 3) = arr(i, 3)
        brr(k, 4) = arr(i, 4)
        brr(k, 5) = arr(i, 5)
        brr(k, 6) = arr(i, 6)
        brr(k, 7) = arr(i, 7)
        brr(k, 8) = arr(i, 8)
        brr(k, 9) = arr(i, 9)
    Next
    Range("a1").Resize(UBound(arr), 9) = brr
End Sub

isolate1

不好意思，没写完