需求

需要在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 Stringf = ThisWorkbook.Path & "\stopwatch.txt"Open f For Input As #1i = 1Dim Time_MM(1000)Do While Not EOF(1)Line Input #1, svarResult = VBA.Split(Application.WorksheetFunction.Trim(s), Chr(10))Num = UBound(varResult) - LBound(varResult)For i = 0 To Numarr_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 iLoopClose #1
End Sub

结果

至此完成。
实例链接：