复制并粘贴用户定义的范围

Question

我有一个电子表格，我在其中突出显示特定范围的值，运行宏并将选定的单元格粘贴为用户定义范围内的值。

以下代码有效，获取用户选择的范围并将其粘贴到同一工作簿的另一部分中。

Sub copypaste2()

Selection.Copy

Range("e22").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
End Sub

我想使用输入框来选择将复制所选内容的单元格；单元格“e22”可能不可用，我需要在电子表格中多次执行此功能。

提前感谢您的帮助！

Answer 1

• 用户单击

  Cancel

  上的

  InputBox

  按钮返回 False，

  On Error Resume Next

  忽略该错误。

Option Explicit

Sub copypaste2()
    Dim rCell As Range, rSel As Range
    Set rSel = Selection
    On Error Resume Next
    Set rCell = Application.InputBox("Please select a cell", Type:=8)
    On Error GoTo 0
    If rCell Is Nothing Then Exit Sub
    rSel.Copy
    rCell.Cells(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

微软文档：

Application.InputBox 方法（Excel）