仅在某些列中寻找价值

Question

早晨

我正在使用此代码在给定的工作表中查找值，但我想添加到该值中，以便仅搜索A到I列。我的知识有限，我尝试做的每一件事都出错。任何帮助将不胜感激。

    Dim value As String
value = Cells(ActiveCell.Row, 2).value
Dim ws As Worksheet
Dim c As Range
Set ws = Worksheets("Components")
Set c = ws.Cells.Find(value, LookIn:=xlValues)

If Not c Is Nothing Then
    MsgBox "Parts on the shelf"
c.Delete
Else
End If

Answer 1

您可以构建搜索范围。

Set c = ws.range("A:I").Find(value, LookIn:=xlValues) 代替 Set c = ws.Cells.Find(value, LookIn:=xlValues) 应该可以解决问题。

在此处定义excel搜索的范围。您之前使用Cells在整个工作表中进行搜索的位置。