Sub shishi()
Range("a9") = Excel.Application.WorksheetFunction.Lookup(1, 0 / (Sheet1.Range("i2:i8") = Sheet1.Range("i2")), Sheet1.Range("c2:c8"))
End Sub
Range("a9") = Excel.Application.WorksheetFunction.Lookup(1, 0 / (Sheet1.Range("i2:i8") = Sheet1.Range("i2")), Sheet1.Range("c2:c8"))
End Sub
