当前位置：首页 > news >正文

excel vba将选中区域向下复制指定次数

news 2025/11/24 6:27:18

1 需求

将选中区域向下复制4次
在这里插入图片描述

2 选中区域 A2：F6

执行VBA，会弹出对话框，输入数字4 （表示向下复制4次）
在这里插入图片描述

3 复制完成

在这里插入图片描述
VBA code

Sub CopySelection()
Dim numCopies As Integer
Dim selectedRange As Range
Dim i As Integer' Prompt the user to enter a number
numCopies = Application.InputBox("Enter the number of times to copy the selection:", Type:=1)
' Check if a valid number is entered
If numCopies <= 0 Then
MsgBox "Please enter a valid positive number.", vbExclamation
Exit Sub
End If' Store the selected range
Set selectedRange = Selection
' Copy the selection downwards the specified number of times
For i = 1 To numCopies
selectedRange.Offset(i * selectedRange.Rows.Count, 0).Value = selectedRange.Value
Next i
MsgBox "Selected range copied " & numCopies & " times.", vbInformation
End Sub