excel - 如何将一些数字作为Excel中的文本转换为数字？

Question

我刚刚运行了一个宏并得到了以下信息：

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("B:B").Select
    Range("B4").Activate
    Selection.NumberFormat = "0.00"
    Selection.NumberFormat = "@"
End Sub

现在无法理解和之间的区别Selection.NumberFormat = "0.00"你Selection.NumberFormat = "@"能帮我理解相同的吗？

我还试图将一些数字作为 Excel 中的文本转换为数字。这样做的好语法是什么？

快照：

编辑

我试图将所有存储text在下面的数字转换为数字，但没有任何改变。如果我错了，请指导：

objSheet1.Columns(11).NumberFormat = "0"

Answer 1

这是你正在尝试的吗？

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, i As Long

    '~~> Change this to the relevant sheet name
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Col B
        .Columns(2).NumberFormat = "0.00"

        '~~> Get the last row
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row

        For i = 1 To lRow
            .Range("B" & i).Formula = .Range("B" & i).Value
        Next i
    End With
End Sub

截屏

Answer 2

要将存储为单元格中数字的文本转换为数字，您可以尝试以下操作：

Sub ConvertTextInCellToNumber(ByVal cellLocation As String)

Dim txt As String
txt = range(cellLocation).text

On Error GoTo Catch

Dim txtAsNumber As Double
txtAsNumber = txt

range(cellLocation).Value = txtAsNumber

Catch:

End Sub