如何處理字串之間空格數

ten999

麻煩各位請問:如何處理字串之間空格數,如附件 代碼.zip (137.98 KB)

代碼
下載次數: 7

2017-1-9 23:25

Scott090

回復 1# ten999

試試看是否符合需求
    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("上市").Cells(n, 1) = aa(0)
                    ElseIf Trim(aa(j)) <> "" Then
                        Sheets("上市").Cells(n, 2) = Trim(aa(j))
                    End If
                Next
                Sheets("上市").Cells(n, 3) = .Cells(i, 3).Value
                Sheets("上市").Cells(n, 4) = .Cells(i, 5).Value
                n = n + 1
            End If
        Next i
    End With

End Sub

ten999

感谢大大：試用中！