使用input框从一个表单复制到另一个表单时出错

我一直在试图通过input框将定义的范围复制到其他表单上的另一个input框。 我得到错误运行时错误“”1004“应用程序定义或对象定义的错误”。 在线

rngCopyFrom.Copy ThisWorkbook.Sheets("Sheet2").Range("rngCopyTo") 

我的水平是初学者。 请引导我以什么方式改变它以达到预期的目的。

  Sub Sample() Dim rngCopyFrom As Range Dim rngCopyTo As Range On Error Resume Next Set rngCopyFrom = Application.InputBox("Enter the range from which you ant to copy", Type:=8) On Error GoTo 0 On Error Resume Next Set rngCopyTo = Application.InputBox("Enter the range from which you want to copy", Type:=8) On Error GoTo 0 If Not rngCopyFrom Is Nothing Then '~~> Copy the range to Shhet2 rngCopyFrom.Copy ThisWorkbook.Sheets("Sheet2").Range("rngCopyTo") End If End Sub 

这个程序的工作原理如果我定义如下所示的固定范围。

  rngCopyFrom.Copy ThisWorkbook.Sheets("Sheet2").Range("D2:D14") 

Answer 1

这应该与2个input框一起工作：

 Option Explicit Sub copyRangeFromInputBoxes() Dim copyFrom As Range, copyTo As Range Err.Clear On Error Resume Next 'if input is cancelled Set copyFrom = Application.InputBox("Select source range", Type:=8) If Not copyFrom Is Nothing Then 'if not cancelled Set copyTo = Application.InputBox("Select destination range", Type:=8) If Not copyTo Is Nothing Then copyFrom.Copy copyTo End If End Sub 

---

代码将从任何工作表中复制并粘贴到其他工作表上：