首页 > 解决方案 > 从单元格中读取一个值并在不同的 Excel 单元格中搜索该值

问题描述

我编写了这个函数,它接受一个单元格的值并在另一个单元格(在不同的工作表中)中查找它:

Sub FindJobnRow() 
Dim TempTargetRow As Variant

TargetRow = vbNullString
JobNo = vbNullString
JobNo = Worksheets("Working").Range("B1:B1").Value
MsgBox (JobNo)

Set TempTargetRow = Worksheets("Planas").Range("C:C").Find(what:=**JobNo**, Lookat:=xlWhole)
If Not TempTargetRow Is Nothing Then
TargetRow = TempTargetRow.Row
Else
MsgBox (JobNo & "Not Found")
End If

Set TempTargetRow = Nothing
End Sub

正在从单元格中读取值并将其作为字符串存储在 JobNo 中(声明为程序/模块范围)。代码找不到值,但如果我输入值而不是变量,它会起作用:

Set TempTargetRow = Worksheets("Planas").Range("C:C").Find(what:=**19569**, Lookat:=xlWhole)

我想这是一些空格问题,但Trim()似乎没有帮助。

标签: excelvba

解决方案


推荐阅读