VBA-计时器的数据进行整理

需求

需要在txt文件中提取出分和秒分别在两列

原始数据

数据结构
计次7 00:01.855
计次6 00:09.028
计次5 00:08.586
计次4 00:08.865
计次3 00:07.371
计次2 00:06.192
计次1 00:05.949

程序步骤

1、利用Trim()去除空格；
2、利用Chr(10)（换行符）分割出一行；
3、取出一行后，按空格分割(默认按空格分割)，再按“:”分割。
4、按逆序保存到单元格里。

VBA程序

Sub 采集信息()
    Dim s As String
    f = ThisWorkbook.Path & "\stopwatch.txt"
    Open f For Input As #1
    i = 1
    Dim Time_MM(1000)
    Do While Not EOF(1)
        Line Input #1, s
        varResult = VBA.Split(Application.WorksheetFunction.Trim(s), Chr(10))
        Num = UBound(varResult) - LBound(varResult)
        For i = 0 To Num
            arr_Time = VBA.Split(varResult(i))
            arr_Time_MM = VBA.Split(arr_Time(1), ":")
            Worksheets(1).Cells((Num - i) + 2, 1) = arr_Time_MM(0)
            Worksheets(1).Cells((Num - i) + 2, 2) = arr_Time_MM(1)
        Next i
    Loop
    Close #1
End Sub

结果

至此完成。
实例链接：