標題: 如何處理字串之間空格數 [打印本頁]

---

作者: ten999    時間: 2017-1-9 23:19     標題: 如何處理字串之間空格數

本帖最後由 ten999 於 2017-1-9 23:30 編輯

麻煩各位請問:如何處理字串之間空格數,如附件[attach]26342[/attach]

---

作者: Scott090    時間: 2017-1-10 10:03

回復 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    時間: 2017-1-10 13:07

感谢大大：試用中！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)