vba将数组数据写入excel表格指定位置

在VBA (Visual Basic for Applications) 中，你可以通过`Range`对象将数组的数据写入Excel工作表的特定位置。以下是基本步骤：

1. 首先，创建一个数组，存储你要写入Excel的数据。例如，假设你有一个包含字符串的数组 `arrData = Array("A", "B", "C")`。

2. 定义Excel工作表范围，指定你想写入的具体单元格。例如，你想从A1开始写入：

   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets("Sheet1") '假设你的工作表名为"Sheet1"
   Dim targetCell As Range
   Set targetCell = ws.Range("A1")

3. 使用`.Resize`方法扩展`targetCell`以便与数组元素的数量相匹配，然后用For循环逐个写入数组元素：

   targetCell.Resize(UBound(arrData) + 1).Value = arrData

这行代码的意思是设置`targetCell`从第一行第一列到数组长度的所有单元格，并将`arrData`的内容填充进去。

4. 最后记得关闭对`ws`和`targetCell`的引用：

   Set targetCell = Nothing
   Set ws = Nothing