对计时器的数据进行整理
- 需求
- 原始数据
- 程序步骤
- 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
结果
至此完成。
实例链接: