From 270cd80930877202ea9960e80b0a58e327d0415a Mon Sep 17 00:00:00 2001 From: alanbjohnston Date: Fri, 9 Nov 2018 15:28:57 -0500 Subject: [PATCH] Initial VB Macro for Excel --- spreadsheet/cleanup.bas | 135 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 135 insertions(+) create mode 100644 spreadsheet/cleanup.bas diff --git a/spreadsheet/cleanup.bas b/spreadsheet/cleanup.bas new file mode 100644 index 00000000..9982fb33 --- /dev/null +++ b/spreadsheet/cleanup.bas @@ -0,0 +1,135 @@ +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