如何使用输入从某张纸上的一行中复制某些数据并在另一张纸上显示

Question

当我尝试此代码时，出现错误，提示“运行时错误'424'：必需对象”，我可以看到它找到了输入的数字，但没有复制该行中的任何数字。 还会在错误的工作表中粘贴“ 0”。 这是我的代码：

Dim x As Integer
Dim a As Integer
Dim b As Integer
x = InputBox(("Input palletizer pattern."), ("Pattern"), (0))
Application.Goto ThisWorkbook.Sheets("Palletizer 2").Range("A:A").Cells(Application.Match(x, ThisWorkbook.Sheets("Palletizer 2").Range("A:A")))
With Selection
ActiveCell.Offset(0, 3) = a
Set ThisWorkbook.Sheets("Palletizer Changeover App").Range("I6") = a
End With

任何帮助将非常感激。

Answer 1

由于使用set语句将整数a分配给范围I6 。 您只能使用set语句分配对象。

如果您删除第二行中的Set ，错误将消失。 但是，请注意，如果您将Value显式分配给该范围的Value属性（默认属性），那么将要实现的目标将更加明显。

为什么这个数字没有出现在正确的位置，我不能为您提供帮助，因为您的问题对我来说不清楚您的确切意图。