Sub find()
Dim FindArea As Range, xR As Range, YY, TT$, Jm&, xR1 As Range, xR2 As Range
Set FindArea = Sheets("Sheet1").Range("A2", [Sheet1!A65536].End(xlUp))
Set FindY = Sheets("搜尋表").Range("A2", "A8")
Set FindX = Sheets("搜尋表").Range("B1", "E1")
For Each xR2 In FindX
For Each xR1 In FindY
For Each xR In FindArea
If xR.Value = xR1.Value Then
Jm = Jm + 1
Sheets("搜尋表").Cells(xR1.Row, xR2.Column).Value = Sheets("Sheet1").Cells(xR.Row, xR2.Column).Value
End If
Next
Next
Next
End Sub
Sub find2()
Dim FindAreaY As Range, xR As Range, YY, TT$, Jm&, xR1 As Range, xR2 As Range, FindAreaX As Range
wafer = 0
Set FindAreaY = Sheets("Sheet1").Range("A2", [Sheet1!A65536].End(xlUp))
Set FindAreaX = Sheets("Sheet1").Range("B1", [Sheet1!IV1].End(xlToLeft))
Set FindX = Sheets("搜尋表1").Range("B1", [搜尋表1!IV1].End(xlToLeft))
Sheets("Sheet1").Select
Range("IV1").Select
Selection.End(xlToLeft).Select
wafer = ActiveCell.Column - 1
'MsgBox ("wafer=" & wafer)
Item = 0
For Each xR In FindAreaY
If xR.Value <> "" Then
Item = Item + 1
End If
Next
MsgBox ("Item=" & Item)
Jm = 0
For Each xR2 In FindX