使用输入框选择范围将范围复制到另一个工作表

Question

我正在编写一个 VBA 宏，其中出现了一个 InputBox，用户将 select 一个范围，该范围将是一个完整的列，然后宏将该范围粘贴到另一个工作表上的特定位置。我一直在努力使这段代码正常工作，但根据我尝试修复的内容，我不断收到不同的错误，所以我想知道是否有人可以帮助我。我已经粘贴了代码的相关部分：

Sub Create_CONV_Files()

Dim NewCode As Range
Set NewCode = Application.InputBox(Prompt:="Select the column with the code numbers", Title:="New Event Selector", Type:=8)

Dim RawData As Worksheet
Set RawData = ActiveSheet

Dim OffSht As Worksheet
Set OffSht = Sheets.Add(After:=Sheets(Sheets.Count))
OffSht.Name = "offset.sac"

Worksheets(RawData).Range(NewCode).Copy _
  Destination:=OffSht.Range("A:A")

End Sub

我试过将输入改为字符串，但我也遇到了错误，我不确定如何解决。我希望大致使用我概述的方法，因为我的完整代码有多个目标工作表和范围。

非常感谢您提供的任何帮助！

Answer 1

一旦你设置了一个 Range 对象，它就会带来它的工作表属性所以不需要限定它的工作表

Sub Create_CONV_Files()

    Dim NewCode As Range
    Set NewCode = Application.InputBox(prompt:="Select the column with the code numbers", title:="New Event Selector", Type:=8)

    Dim OffSht As Worksheet
    Set OffSht = Sheets.Add(After:=Sheets(Sheets.count))
    OffSht.Name = "offset.sac"

    NewCode.Copy _
    Destination:=OffSht.Range("A1")

End Sub

使用输入框选择范围将范围复制到另一个工作表

Copy Range to Another Worksheet Using Input Box to Choose Range

variables

vba

copy-paste

range

inputbox