You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
136 lines
5.2 KiB
136 lines
5.2 KiB
Attribute VB_Name = "Module1"
|
|
Sub Cleanup()
|
|
Attribute Cleanup.VB_Description = "Cleans up AFSK telemetry by deleting every other row. Make sure the first row is the timestamp, not the telemetry data."
|
|
Attribute Cleanup.VB_ProcData.VB_Invoke_Func = "t\n14"
|
|
'
|
|
' Cleanup Macro
|
|
' Cleans up AFSK telemetry by deleting every other row. Make sure the first row is the timestamp, not the telemetry data.
|
|
'
|
|
|
|
'
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Selection.Delete Shift:=xlUp
|
|
ActiveCell.Offset(1, 0).Range("A1").Select
|
|
Rows("1:1").Select
|
|
|
|
End Sub
|