跨工作表查找的宏

Sub 通用件()
X1 = ActiveWorkbook.ActiveSheet.UsedRange.Row
X2 = ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row
For X = X1 To X2
If Cells(X, 1) = "通用件" Then
Cells(X, 1).Select
End If
Next
End Sub

Sub 通用件()
Dim findrng As Range
Worksheets("配件资料").Select
Set findrng = ActiveSheet.Range("A:A").Find("通用件")
If Not findrng Is Nothing Then findrng.Select
End Sub