Sub test()
Dim Rng1 As Range, Rng2 As Range, N%, I%
On Error GoTo ask '设定出错时的跳转位置
retry:
Set Rng1 = Application.InputBox("请用鼠标选择要复制的区域:", , , , , , , 8) '输入要复制的区域,用inputbox方法取得单元格区域范围
Set Rng2 = Application.InputBox("请用鼠标选择目标区第一个单元格位置:", , , , , , , 8) '输入目标区域第一个单元格的位置
N = InputBox("请输入要复制的份数:") '输入次数
For I = 1 To N '循环复制指定区域到新区域,并下移完成指定次数的复制
? ? Rng2(1, 1).Offset((I - 1) * Rng1.Rows.Count, 0).Resize(Rng1.Rows.Count, Rng1.Columns.Count) = Rng1.Value
Next I
Exit Sub '正常操作完成后的退出位置
ask:
ask = MsgBox("输入有误,“是”重试,“否”退出?", vbYesNo, "选择") '出错时提问
If ask = vbYes Then GoTo retry '如果回答重试,则跳到Retry处
End Sub
Dim Rng1 As Range, Rng2 As Range, N%, I%
On Error GoTo ask '设定出错时的跳转位置
retry:
Set Rng1 = Application.InputBox("请用鼠标选择要复制的区域:", , , , , , , 8) '输入要复制的区域,用inputbox方法取得单元格区域范围
Set Rng2 = Application.InputBox("请用鼠标选择目标区第一个单元格位置:", , , , , , , 8) '输入目标区域第一个单元格的位置
N = InputBox("请输入要复制的份数:") '输入次数
For I = 1 To N '循环复制指定区域到新区域,并下移完成指定次数的复制
? ? Rng2(1, 1).Offset((I - 1) * Rng1.Rows.Count, 0).Resize(Rng1.Rows.Count, Rng1.Columns.Count) = Rng1.Value
Next I
Exit Sub '正常操作完成后的退出位置
ask:
ask = MsgBox("输入有误,“是”重试,“否”退出?", vbYesNo, "选择") '出错时提问
If ask = vbYes Then GoTo retry '如果回答重试,则跳到Retry处
End Sub