Excel的VBA转换号码存储为文本数列(Excel VBA Convert Number stor

我有在数字格式为“文本”在我的Excel工作表中的混合数据的列。 存储在我的列中的值的一些例子：

• 36
• R4
• 56
• AF PL RFD
• 65
• DHU
• 14

我现在需要的是所有的数值转换列的格式“数”，这样我可以进一步处理数据的宏。

我尝试以下，这将引发错误400，没有任何进一步的解释：

Sheet1.Range("A2","A50000").Select
With Selection
    .NumberFormat = "General"
    .Value = .Value
End With

也许好知道的是，我做我没有多少行与价值观我列将包含因此不得不采取相当大的范围内。 谢谢你的帮助！

Answer 1:

避免试图选择这两个工作表，并在同一个语句的范围（实际上，你可以完全避免选择 ）：

Sub ytrewq()
    With Sheet1.Range("A2", "A50000")
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

似乎工作就好了！

Answer 2:

我注意到许多人都试图用某种“数字格式”，比如在主页功能区发现来回答这个问题。 我认为关注悬停在单元格时，就在于将数据从源中提取，并具有在细胞中的小绿色箭头用“谨慎”弹出。 这不能用固定的数字格式，并最有可能被要求协助的人尝试。 我是其中之一。

With ActiveSheet.Select
    Range("A2:A10000").Select
        For Each xCell In Selection
        xCell.Value = CDec(xCell.Value)
    Next xCell
End With

Mabbutt，丹。 “在Excel文本转换为数字。” ThoughtCo，2018年6月14日，thoughtco.com/convert-text-to-number-in-excel-3424223。

文章来源: Excel VBA Convert Number stored as Text to Number in column