VBA按照指定的单元格个数复制

在VBA中，如果你想按照指定的单元格个数（例如64个）而不是固定行数复制数据，你需要先确定每个单元格的位置，然后在循环中依次复制。这通常涉及到数组操作。以下是一个简单的示例，假设你要从A1:A64区域复制数据：

Sub CopySpecificCells()
    Dim sourceRange As Range, destRange As Range, cellCount As Long
    Dim i As Long
    cellCount = 64 ' 指定的单元格数量
    
    ' 设置源范围为A1:A64
    Set sourceRange = ThisWorkbook.Sheets(1).Range("A1:A" & cellCount)

    ' 创建一个新的动态数组，用于存储目标单元格引用
    Dim destCellArray() As Variant
    ReDim destCellArray(1 To cellCount) As String
    For i = 1 To cellCount
        destCellArray(i) = "DestinationSheet.Cells(" & (i + 1) & ", 1)" ' 假设DestinationSheet是你想要粘贴的目标工作表的第一个列
    Next i
    
    ' 打开目标工作表并设置目标范围
    Dim DestinationSheet As Worksheet
    Set DestinationSheet = ThisWorkbook.Worksheets("YourDestinationSheetName") ' 替换为你实际的工作表名称
    Set destRange = DestinationSheet.Range(destCellArray)

    ' 将源数据复制到动态数组指定的位置
    sourceRange.Copy Destination:=destRange
End Sub

请注意，你需要替换`DestinationSheet.Cells(" & (i + 1) & ", 1)`这部分为实际的单元格位置。