VBA -仅粘贴数组中的特定列

Sub PasteSpecificColumns()
    Dim sourceArray() As Variant
    Dim targetRange As Range
    Dim targetColumn As Range
    Dim i As Long
    
    ' 假设源数组中的数据已经准备好
    sourceArray = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))
    
    ' 打开目标工作表并选择起始单元格
    Set targetRange = ThisWorkbook.Worksheets("目标工作表").Range("A1")
    
    ' 循环遍历源数组中的每一行
    For i = LBound(sourceArray) To UBound(sourceArray)
        ' 获取源数组中的特定列数据
        Set targetColumn = targetRange.Offset(i, 0).Resize(1, 1) ' 假设要粘贴到第一列
        
        ' 将特定列的数据粘贴到目标工作表中
        targetColumn.PasteSpecial Paste:=xlPasteValues
    Next i
End Sub