本文介绍了想要循环帮助的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我想知道如何为Application.inputbox创建范围循环

i want to know how to create loop for Application.inputbox for range

Sub copylineup()

Dim copyrange As Range

Dim destinationrange As Range

Do

设置copyrange = Application.InputBox(提示:="输入要选择的范围",类型:= 8)

设置destinationrange = Application.InputBox(提示:="输入目的地范围",输入:= 8)

copyrange.Copy destinationrange

Sub copylineup()
Dim copyrange As Range
Dim destinationrange As Range
Do
Set copyrange = Application.InputBox(Prompt:="Enter a range to select", Type:=8)
Set destinationrange = Application.InputBox(Prompt:="Enter a destination range", Type:=8)
copyrange.Copy destinationrange

循环

推荐答案


这篇关于想要循环帮助的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

10-25 03:57