在Excel 2010-VBA中使用输入框复制和粘贴

需要帮助。我是VBA的新手，尝试从简单的宏开始。 但即使失败得很惨。 我所要做的就是使用输入框指定要复制的范围，从一个工作表复制粘贴到另一个工作表。 现在我知道输入框的输入是：

Application.InputBox("Enter the range from which you want to copy : ", Type:=8)

但要复制到另一个工作表中的单元格，我需要哪一行

---

我为自己是个白痴提前道歉。

这就是你要尝试的吗

Option Explicit

Sub Sample()
    Dim rngCopyFrom As Range

    On Error Resume Next
    Set rngCopyFrom = 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 say Cell A1 of Sheets("weekly raw")
        rngCopyFrom.Copy ThisWorkbook.Sheets("weekly raw").Range("A1")
    End If
End Sub

---

这就是你想要的吗

Option Explicit

Sub Sample()
    Dim rngCopyFrom As Range

    On Error Resume Next
    Set rngCopyFrom = 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 say Cell A1 of Sheets("weekly raw")
        rngCopyFrom.Copy ThisWorkbook.Sheets("weekly raw").Range("A1")
    End If
End Sub

---

下面是一些示例代码：

Option Explicit

Sub CopyStuff()

Dim x As Range
Dim y As Range

Set x = Application.InputBox("Select what copy using the mouse", Type:=8)
Set y = ActiveWorkbook.Sheets("Sheet2").Range("A1")

x.Copy y

End Sub

---

下面是一些示例代码：

Option Explicit

Sub CopyStuff()

Dim x As Range
Dim y As Range

Set x = Application.InputBox("Select what copy using the mouse", Type:=8)
Set y = ActiveWorkbook.Sheets("Sheet2").Range("A1")

x.Copy y

End Sub

---

一种方法是：

Sub CopyRange（）
从范围变暗为范围
变光范围
Set FromRange=Application.InputBox（“输入要复制的范围：”，键入：=8）
设置ToRange=Application.InputBox（“输入要复制的范围：”，键入：=8）
FromRange.Copy ToRange
“或者，如果您在粘贴时需要一些灵活性，也可以这样做
'FromRange.Copy
'ToRange.PasteSpecial xlPasteValues，XLPasteSpecialLoperationNone
端接头

一种方法是：

Sub CopyRange（）
从范围变暗为范围
变光范围
Set FromRange=Application.InputBox（“输入要复制的范围：”，键入：=8）
设置ToRange=Application.InputBox（“输入要复制的范围：”，键入：=8）
FromRange.Copy ToRange
“或者，如果您在粘贴时需要一些灵活性，也可以这样做
'FromRange.Copy
'ToRange.PasteSpecial xlPasteValues，XLPasteSpecialLoperationNone
端接头

范围（“A1”）。复制范围（“A2”）

（将A1复制到A2）谢谢您的回复Sean。这不会复制A1到A2中的内容。我需要的是一个宏，它允许我使用输入框指定一个范围。但是，我需要将指定的范围复制到另一个工作表。在这种情况下，工作表被称为“每周原始”

range（“A1”）。复制range（“A2”）

（将A1复制到A2）感谢Sean的回复。这不会复制A1到A2中的内容。我需要的是一个宏，它允许我使用输入框指定一个范围。但是，我需要将指定的范围复制到另一个工作表。在这种情况下，工作表被称为“每周原始”，谢谢Siddharth。是的，这就是我需要的。谢谢西德哈特。是的，这就是我需要的。