找不到对象错误：循环将在另一个工作表中找到具有相同值的单元格，选择新找到的单元格的偏移量

Question

I am trying to create some vba that will do a loop on cells in a column on sheet 1, then check if the cell is apparent on sheet 2, if it is then i want the offset of the sheet 2 value pasted next to the original sheet 1 value. I get the error object required on the cell function or value to find.

Sub findValue()

Dim xlRange As Range
Dim xlCell As Range
Dim xlSheet As Worksheet
Dim valueToFind

For Each cell In Range("h2:h8")
cell.Select
cell = ActiveCell
MsgBox (cell)

valueToFind = ActiveCell
Set xlSheet = ActiveWorkbook.Worksheets("DATA")
Set xlRange = xlSheet.Range("A1:A13")

For Each xlCell In xlRange


    If xlCell.Value = valueToFind Then
        MsgBox (xlCell.Offset(0, 1).Value)
  valueToFind.Offset(0, 2).Value = xlCell.Offset(0, 1).Value

    End If
Next xlCell

Answer 1

There's a lot of stuff that looks a little strange (according to what is valid syntax) in your code, so I re-wrote an example below.

Sub getOffsetValue()

    Dim origWS as Worksheet
    Dim dataWS as Worksheet

    Set origWS = Worksheets("original") 'change as needed
    Set dataWS = Worksheets("DATA")

    Dim checkCell as Range

    For each checkCell in origWS.Range("H2:H8")

        Dim foundIt as Range
        Set foundIt = dataws.Range("A1:A13").Find(checkCell.Value)

        If Not foundIt is Nothing then

            MsgBox foundIt.Offset(0, 1).Value
            checkCell.Offset(0, 2).Value = foundIt.Offset(0, 1).Value

        End If

    Next

End Sub

Answer 2

答案：我需要在第一个单元格循环中添加“set”