VBA Поиск диапазона

Question

Я пытаюсь выполнить поиск по диапазону ячеек с помощью метода .Find, и я не могу заставить его работать. У меня есть верхние и нижние связанные числа в ячейках A1 и A2, и вы просто хотите найти столбец A. Есть ли другой способ, которым я могу настроить .Range(), чтобы я мог искать эти конкретные ячейки?

lowNum = Worksheets("Sheet4").Cells(1, 1) 
HighNumb = Worksheets("Sheet4").Cells(1, 2) 

Row = 2 
While Not IsEmpty(Worksheets("Sheet4").Range("A" & Row)) 
cn = 1 
While Not IsEmpty(Worksheets("Sheet4").Cells(Row, cn)) 
    Set c1 = Worksheets("Sheet2").Range(Cells(lowNum, "A"), Cells(HighNumb,"A")).Find(
     What:=Worksheets("Sheet4").Cells(Row, cn), _ 
     LookIn:=xlValues) 
    If Not c1 Is Nothing Then 
     Worksheets("Sheet4").Cells(Row, cn).Delete shift:=xlToLeft 
     cn = cn - 1 
    End If 
    cn = cn + 1 
Wend 
Row = Row + 1 
Wend 




End Sub 

Answer 1

я исправил свой код немного, скажите мне, если он работал:

lowNum = Worksheets("Sheet4").Cells(1, 1).Value 
HighNumb = Worksheets("Sheet4").Cells(1, 2).Value 

LastRow = Worksheets("Sheet4").Cells(Worksheets("Sheet4".Rows.Count, "a").End(xlUp).Row 

For Row = 2 To LastRow 
    While Not IsEmpty(Worksheets("Sheet4").Range("A" & Row)) 
     cn = 1 
     While Not IsEmpty(Worksheets("Sheet4").Cells(Row, cn)) 
      Set c1 = Worksheets("Sheet2").Range(Cells(lowNum, "A"), Cells(HighNumb,"A")).Find(What:=Worksheets("Sheet4").Cells(Row, cn).Value, LookIn:=xlValues) 
      If Not c1 Is Nothing Then 
       Worksheets("Sheet4").Cells(Row, cn).Delete shift:=xlToLeft 
       cn = cn - 1 
      End If 
     cn = cn + 1 
     Wend 
    Row = Row + 1 
    Wend 

End Sub