我尝试复制和粘贴结果范围

问：

' 输入框

将 x 调暗为整数

将 inp 调暗为字符串

将 curcount 调暗为整数

将表演者调暗为字符串

将 projn 调暗为字符串

Dim 缺点 As String

projnumber = Application.InputBox（“输入项目编号”， ， 9999， ， 1）

客户 = Application.InputBox（“客户名称”）

project_name = Application.InputBox（“项目名称”）

执行者 = Application.InputBox（“执行者名称”）

模型 = Application.InputBox（“模型”）

咨询 = Application.InputBox（“咨询工程师”）

x = 2

设置 countarea = Range（“n2”）

计数 （“n2”）

curcount = 范围（“n2”）

x = x + 曲次数

设置计数器 = Range（“N” & x）

计数器。值 = curcount

今天设置 = Range（“D” & x）

今天。NumberFormat = “dd/mm/y”

今天。值 = 日期

范围（“A” & x） = 项目编号

范围（“B” & x） = 客户

范围（“c” & x） = project_name

Range（“E” & x） = 表演者

Range（“F” & x） = 型号

范围（“G” & x） = 咨询

Sheets("DataSet").Range("A" & x & ":D" & x).copy
Sheets("Sheet1").Select
    Range("A2").Paste