如何在Excel VBA中将数组输出到表？

Question

I have a table named foobar that has Range(Cells(2, 1), Cells(11, 2)) (use Range("foobar[#All]") to include the header row). And there are other tables starting from row 13. So there is a blank line between (ie, row 12). The table name is used by my collegues in several other macros. Now, I'd like to copy an array, say, Redim array1(1 To n, 1 To 2) to table foobar . As you see, n is a variable, and I have to make sure after I paste the array starting from Cells(2, 1) , it won't overwrite the tables below and there is still one blank line below table foobar to separate it from other tables. And the name foobar should also be kept.

---

How do I auto adjust/add/reduce the rows to match my array array1 and not to destroy table foobar and other tables below it?

Answer 1

Fortunately you don't have data and tables on the same rows, so the task is easier. This code snippet changes the content of the table foobar while not affecting the table(s) below it.

Sub ChangeTableToArray(tbl As ListObject, ar)
  Dim newRows As Long: newRows = 1+ UBound(ar,1) - LBound(ar,1)
  If Not tbl.DataBodyRange Is Nothing Then tbl.DataBodyRange.EntireRow.Delete
  If newRows > 1 Then tbl.HeaderRowRange.Resize(newRows - 1).Offset(2).EntireRow.Insert
  tbl.HeaderRowRange.Resize(newRows, 1+UBound(ar,2)-LBound(ar,2)).Offset(1).Value = ar
End Sub

---

Sub Testing()
  Dim n As Long: n = 15
  ReDim ar(1 To n, 1 To 2)
  For n = 1 To n
    ar(n, 1) = n
    ar(n, 2) = n * n
  Next
  ChangeTableToArray Sheet2.ListObjects("foobar"), ar
End Sub