这是我在处理高速状态下手机与基站间的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