VBA将指定的列数据分别填入每一个sheet指定单元格

在VBA中，你可以创建一个循环结构，遍历每个Sheet并将其指定列的数据插入到对应的位置。以下是一个基本的例子，假设我们有一个二维数组 `data`，包含各Sheet的列数据，以及每个Sheet的起始单元格地址 (`startCell`):

Sub CopyDataToSheets()
    Dim data As Variant '二维数组，存储所有Sheet的数据
    Dim ws As Worksheet '当前处理的Sheet
    Dim startCell As Range '开始单元格位置，例如 "Sheet1!A1"
    
    ' 假设 data 的结构是：data(0)对应Sheet1的第一行数据，data(1)对应Sheet2等...
    For i = 0 To UBound(data)
        Set ws = ThisWorkbook.Worksheets(i + 1) '从Sheet1开始计数
        
        ' 获取实际的起始单元格，可能因Sheet不同而变化
        Set startCell = ws.Range(startCellAddress(i)) '这里替换为实际的起始单元格地址
        
        ' 将数据复制到Sheet
        startCell.Resize(UBound(data, 1), 1).Value = data(i, :) '这里的1表示只有一个列
    Next i
End Sub

Function startCellAddress(ByVal sheetIndex As Long) As String
    ' 根据你的需求填充这个函数，返回Sheet中指定列开始的单元格地址
    ' 比如，如果每张Sheet第一列数据都在A列，你可以返回 "A1"
    startCellAddress = "A1" '这是一个示例，需要根据实际情况修改
End Function

记得替换 `startCellAddress` 函数里的内容以匹配实际的 Sheet 和起始单元格配置。运行此宏后，数据就会按顺序填入各个Sheet的相应位置。