excel vba将选中区域向下复制指定次数
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