IaaC blog

This is a really simple one that i used to clean up my spreadsheets before importing them to rhino. It just deletes lines, first all of the empty ones then every other one because of duplicate values.

Sub stressfix()

Dim i, k, l, m, n, o, p, q, r

For i = 1 To 10000 Step 45

Range(”A” & i).Select

Selection.EntireRow.Delete

Next

For k = 1 To 10000 Step 44

Range(”A” & k).Select

Selection.EntireRow.Delete

Next

For l = 1 To 10000 Step 43

Range(”A” & l).Select

Selection.EntireRow.Delete

Next

For m = 1 To 10000 Step 42

Range(”A” & m).Select

Selection.EntireRow.Delete

Next

For n = 1 To 10000 Step 41

Range(”A” & n).Select

Selection.EntireRow.Delete

Next

For o = 1 To 10000 Step 40

Range(”A” & o).Select

Selection.EntireRow.Delete

Next

For p = 1 To 10000 Step 39

Range(”A” & p).Select

Selection.EntireRow.Delete

Next

For q = 1 To 10000 Step 38

Range(”A” & q).Select

Selection.EntireRow.Delete

Next

For r = 1 To 10000 Step 37

Range(”A” & r).Select

Selection.EntireRow.Delete

Next

‘////////////////////////////////

For s = 2 To 10000 Step 1

Range(”A” & s).Select

Selection.EntireRow.Delete

Next

Columns(”A:F”).Select

Selection.NumberFormat = “0.0000000″

End Sub

You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.