在 VBA 中拆分数据

Question

目前我面临一个问题，特别是我不知道如何解决。 我有一张桌子：
--------------------------
| d.dasd |
| dasda.dasda |
| fdsfs.fsdf |
| fdsfdsaf.fdsafasdf |
| dasda.dasdasdas |
---------------------------

问题是我想删除“点”之后的字符串。我用 VBA 写了一个脚本：

Sub SplitText()

Dim Counter As Integer
Counter = 1
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Dim Temp As String
Dim Splited As String

Do While Counter <= LastRow

    Temp = Cells(Counter, 1).Value
    Splited = Split(Temp, ".")
    MsgBox Splited

Counter = Counter + 1
Loop

End Sub

但我在 'Splited = Split(Temp, ".")
中遇到问题 点后面的数据应该删除。

我该怎么办？

Answer 1

根据 cmets，如果您想要的只是 . 前面的文本，那么只需更改一行：

Sub SplitText()

Dim Counter As Integer
Counter = 1
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Dim Temp As String
Dim Splited As String

Do While Counter <= LastRow

    Temp = Cells(Counter, 1).Value
    Splited = Split(Temp, ".")(0)
    MsgBox Splited

Counter = Counter + 1
Loop

End Sub

Answer 2

试试这个代码：

Sub SplitText()

    Dim Counter As Integer
    Counter = 1
    Dim i As Integer
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Dim Temp As String
    Dim Splited As Variant  '~~> Splited will be Variant and NOT string

    Do While Counter <= LastRow

        Temp = Cells(Counter, 1).Value
        Splited = Split(Temp, ".")  

        '~~> Run a loop on array and get all the items
        For i = LBound(Splited) To UBound(Splited)
            MsgBox Splited(i)
        Next

        Counter = Counter + 1
    Loop

End Sub