Question

I have a large data set that I’m working with in excel. About 1000+ columns and close to 1 million rows.

My issue is that many of my numbers are formatted as text. To resolve this, I’ve been using the copy paste > add technique, adding a blank cell.

My problem is that I’m trying to macro this functionality, but I can’t figure out how to add a blank cell.

I tried to get crafty and have the macro create a new row, do the add, then delete that row. But, I can’t seem to get that to work either.

Anyone have a solution?

Answer 1

The following code does what I was looking for.

Sub psAdd()

    Dim x As Range 'Just a blank cell for variable
    Dim z As Range 'Selection to work with

    Set z = Cells
    Set x = Range("A65536").End(xlUp).Offset(1)
    If x <> "" Then
        Exit Sub
    Else
        x.Copy
        z.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
        Application.CutCopyMode = False 'Kill copy mode
    End If
    x.ClearContents 'Back to normal

End Sub