VBA代码将A1到Q14在保持行高列宽的情况下向下复制十次

您可以使用以下VBA代码来实现该操作：

Sub CopyData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim i As Integer
    
    ' 设置源数据范围，假设数据在Sheet1的A1:Q14单元格中
    Set sourceRange = Sheets("Sheet1").Range("A1:Q14")
    
    ' 设置目标数据范围的起始位置，假设从Sheet2的A1开始
    Set destinationRange = Sheets("Sheet2").Range("A1")
    
    ' 循环复制数据十次
    For i = 1 To 10
        sourceRange.Copy destinationRange
        
        ' 将目标数据范围向下移动源数据范围的行数
        Set destinationRange = destinationRange.Offset(sourceRange.Rows.Count, 0)
        
        ' 保持行高列宽
        destinationRange.EntireRow.AutoFit
        destinationRange.EntireColumn.AutoFit
    Next i
End Sub

请注意，您需要根据实际情况修改源数据范围和目标数据范围的位置。此代码将源数据复制到目标区域，并将目标区域向下移动源数据的行数，以便重复复制十次。在每次复制后，使用 `EntireRow.AutoFit` 和 `EntireColumn.AutoFit` 来保持行高和列宽。