如何用VBA根据单元格值多次复制粘贴指定单元格区域

以下是满足你需求的VBA代码，直接复制到Excel的VBA编辑器（按Alt+F11打开）的模块中即可使用：

Sub CopyRangeByCount()
    Dim copyCount As Integer
    Dim i As Integer
    Dim targetStartRow As Integer
    
    ' 获取B1单元格的数值
    copyCount = Range("B1").Value
    
    ' 判断数值是否在有效范围内（2-4）
    If copyCount < 2 Or copyCount > 4 Then
        MsgBox "B1单元格的值需在2到4之间！"
        Exit Sub
    End If
    
    ' 定义要复制的源区域
    Dim sourceRange As Range
    Set sourceRange = Range("A2:C11")
    
    ' 循环执行复制粘贴，次数为copyCount-1次（B1=2对应1次粘贴，以此类推）
    For i = 1 To copyCount - 1
        ' 计算每次粘贴的起始行：第一次13，之后每次加11（源区域共10行，间隔1行）
        targetStartRow = 13 + (i - 1) * 11
        ' 复制源区域到目标位置
        sourceRange.Copy Destination:=Range("A" & targetStartRow & ":C" & targetStartRow + 9)
    Next i
    
    ' 清除剪贴板内容（可选）
    Application.CutCopyMode = False
End Sub

代码说明 #

• 次数获取：从B1读取数值，B1=2对应1次粘贴、B1=3对应2次，完全匹配你的需求
• 范围校验：加入简单判断，避免输入无效数值导致运行错误
• 目标位置计算：通过公式自动计算每次粘贴的起始行，确保和你指定的A13:C22、A24:C33、A35:C44完全对应
• 复制粘贴逻辑：直接指定目标区域，操作高效且符合新手认知

新手操作步骤 #

1. 打开目标Excel文件
2. 按Alt+F11打开VBA编辑器
3. 右键左侧工作簿名称，选「插入」→「模块」
4. 将代码粘贴到右侧代码窗口
5. 返回Excel，按Alt+F8，选择CopyRangeByCount点击「执行」

如果想进一步提升效率（避免使用剪贴板），可以把复制粘贴的代码行替换为直接赋值：

Range("A" & targetStartRow & ":C" & targetStartRow + 9).Value = sourceRange.Value

内容的提问来源于stack exchange，提问作者Stella