循环搜索同一行特定范围列的搜索文本，一旦找到，将在另一行但同一列中返回值

Question

我是VBA的新手，需要一些帮助来编写代码来解决此问题。例如。我想在每一行中将B列搜索到H并返回特定的单元格值。

例如循环搜索第7行的B到H列，并基于J列找到“ p20028”单元（E7）。将D5的“ sa2084”返回/复制到I7单元。

Sub whereused()
    Dim part_num_1 As String        
    Dim finalrow As Integer        
    Dim row As Integer
    Dim column As integer

    finalrow = Sheet("Sheet1").Range("J1400").End(x1up).row

    For row = 3 To finalrow        
        For column = 1 To 8        
            part_num = Sheets("Sheet1").Cells(row, 10).Value        
            If Cells(row, column).Value = part_num Then

            End If        
        Next column            
    Next row    
End Sub