Excel：选择性粘贴>使用VBA添加“空白”单元格

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

Instead of selecting the entire range, you need to select only the cells with values in them. I would suggest the Special Cells function:

1. Highlight the cell with the #1 in it and COPY that cell
2. Highlight a column of cells to convert
3. Press F5 > Goto > Special > Constants (you may have to play with the options here to get only the cells you want)
4. OK (Now only the cells with values are selected)
5. Now select Paste Special > Multiply

Answer 2

Using VBA you can conditionally convert the target values to doubles (or another type of your choosing).
Tested example below assumes:

1. you are working with Sheet1 in ActiveWorkbook
2. numbers stored as text in column A (1)
3. converted values to appear in column B (2)

An aside: It's probably always a good idea save your work before running VBA. Cheers, and happy coding.

Option Explicit

Sub convert_to_dbl()
    Dim r As Long
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Sheets(1)

    For r = 1 To FindLastRow(ws)
        With ws
            If .Cells(r, 1).Value <> "" Then
                .Cells(r, 2).Value = CDbl(.Cells(r, 1).Value)
            End If
        End With
    Next r
End Sub

Function FindLastRow(ws As Worksheet)
    Dim LastRow As Long
    If WorksheetFunction.CountA(Cells) > 0 Then
        LastRow = Cells.Find(What:="*", After:=[A1], _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlPrevious).Row
    End If
    FindLastRow = LastRow
End Function

Answer 3

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