Scott090

¦^´_ 1# ten999

¸Õ¸Õ¬Ý¬O§_²Å¦X»Ý¨D
    Sub test()
    Dim i&, j%, n&, aa
    With Sheets("Temp")
        n = 1
        For i = 1 To .Cells(65535, 1).End(xlUp).Row
            If Trim(.Cells(i, "F")) = "ESVUFR" Then
               
                aa = Split(Trim(.Cells(i, 1)), " ")
                For j = 0 To UBound(aa)
                    If j = 0 Then
                        Sheets("¤W¥«").Cells(n, 1) = aa(0)
                    ElseIf Trim(aa(j)) <> "" Then
                        Sheets("¤W¥«").Cells(n, 2) = Trim(aa(j))
                    End If
                Next
                Sheets("¤W¥«").Cells(n, 3) = .Cells(i, 3).Value
                Sheets("¤W¥«").Cells(n, 4) = .Cells(i, 5).Value
                n = n + 1
            End If
        Next i
    End With

End Sub