VB 数组写入excel求助

yangxb

正常写入数组Range("a1" ).Resize(UBound(arr1), UBound(arr1，2)) = arr1

我这有两个需求，要把数组写入到excel从某行开始的奇数行，就是隔行写入，或者写入一些行，在间隔几行继续写入，如何实现，请教！！！！

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, brr, crr, i, a, b, m
  ReDim arr(1 To 20, 1 To 2)
  For i = 1 To UBound(arr, 1)
    arr(i, 1) = i: arr(i, 2) = 10 * i + i
  Next
  [a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr '原始数组
  brr = arr
  For i = 1 To UBound(arr, 1)
    If i Mod 2 = 0 Then brr(i, 1) = vbNullString: brr(i, 2) = brr(i, 1) '保留奇数行
  Next
  [c1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
  a = 3: b = 5
  ReDim brr(1 To UBound(arr, 1) + b, 1 To 2)
  For i = 1 To UBound(arr, 1)
    m = m + 1: brr(m, 1) = arr(i, 1): brr(m, 2) = arr(i, 2)
    If m = a Then m = m + b '先写入3行再隔5行继续写入
  Next
  [e1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub