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

funnycoffee123

于 2024-08-21 08:47:09 发布

阅读量60

点赞数

文章标签： excel java 开发语言

本文链接：https://blog.csdn.net/funnycoffee123/article/details/141376152

版权

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