VLookup从不同的工作簿中获取信息

Question

当我单步执行代码时，没有收到任何错误，但是代码未返回任何内容。我不知道该如何解决该问题。

H5的值= 161-0123。前三个数字标识零件的类型（也就是我要浏览的工作表），后四个数字是特定工作表中的零件号

Dim LookUp As String
Dim Typ As String

Typ = Left(Range("H5"), 3)
LookUp = Right(Range("H5"), 4)


Application.ScreenUpdating = False
Set wbk1 = Workbooks.Open("R:\Item Master List\Item Master Log.xlsx")

Dim sheet1 As Worksheet
Set sheet1 = wbk1.Worksheets("161-Polyimide")

Worksheets("Sheet1").Range("I5").Value = Application.VLookup(LookUp, sheet1.Range("A:J"), 8, 0)

161-0123具有与其关联的组件号，这是I5应当检索的单元格编号（195-1234）

输入H5 = 161-0123

I5中的输出= 195-1234

Answer 1

通过修补，我弄清楚了我的问题，这是两个部分。

首先，这是一个猜测，因为我这样做的机会很小。

单元格H5的格式设置为“常规”，因此当将“-”添加到数字中时，它会将整个单元格视为字符串，而另一个文件中的数字将归类为数字。

第二：

我必须指定ThisWorkbook.Worksheets("Sheet1").Range("I5").Value =（谢谢@ cybernetic.nomad）。

Answer 2

尽管确切的问题是可以知道的，但是如果我获得了完整的代码，但是有了您提供的信息，以我的经验，我注意到Excel在大多数情况下都表现为不确定性：

1. Excel可能已进入手动工作表计算模式，因为您是故意这样做的，或者工作表上有很多公式。如果您在excel窗口的左下方具有计算选项，则可以对此进行验证。

1. 您可能已启用了录制宏选项。