¦p¦ó³B²z¦r¦ê¤§¶¡ªÅ®æ¼Æ

ten999

³Â·Ð¦U¦ì½Ð°Ý:¦p¦ó³B²z¦r¦ê¤§¶¡ªÅ®æ¼Æ,¦pªþ¥ó ¥N½X.zip (137.98 KB)

¥N½X
¤U¸ü¦¸¼Æ: 7

2017-1-9 23:25

ten999

·P谢¤j¤j¡G¸Õ¥Î¤¤¡I

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