excel宏：导入同路径下同名txt文件并分析

这是我在处理高速状态下手机与基站间的signal变化的记录时用到的宏，signal文件太多，就写了这个宏

主要功能包括：

读取同名txt数据文件

拆分时间列

遍历有数据的行

删除指定行（删除时要倒序遍历，因为excel删除后会自动提升后面的行）

计算第一条记录的时间与基准时间的秒数

删除低速时间的记录（需要输入时间范围）

计算相临记录的时间差

“R[-1]C[-1]” 表示当前单元格 向左1，向上1的那个格，需要让excel计算时，用它来表示excel公式中的指定单元格等

Sub 导入与Excel同名的addition()
'
' 导入addition 宏
' 导入addition或signal文件c+s+A
'
' 快捷键: Ctrl+Shift+A
'

Set objDlg = CreateObject("Scripting.FileSystemObject")
loadtxtname = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 5)

tpath = Mid(ActiveWorkbook.FullName, 1, Len(ActiveWorkbook.FullName) - 5)
loadtxtpath = tpath & ".txt"
'ActiveWorkbook.FullName
'CreateObject("Scripting.FileSystemObject").GetFile(ActiveWorkbook.FullName).ParentFolder.Path
'ActiveWorkbook.Pa