Question

我有Range("B6:T10000")

该范围内的数据混合了blanks，#'s，numbers (formatted as texts)，texts，最重要的是formulas。

有人可以帮助使用VBA宏来：

查找任何看起来像数字的内容并将其转换为数字
忽略其余的
不要将公式转换为值

非常感谢

Answer 1

您可以在没有代码的情况下执行此操作，也可以使用更快的代码避免循环

<强>手册

复制空白单元格
选择您的范围B6:T100001
按F5。然后Goto ... Special
选中Constants然后Text
Paste Special Multiply并检查Add

这会将仅包含数字的文本转换为数字，并仅保留实际文本或公式

<强>代码

Sub Update()
Dim rng1 As Range
On Error Resume Next
Set rng1 = Range("B6:T10000").SpecialCells(xlCellTypeConstants, 2)
On Error Resume Next
If rng1 Is Nothing Then Exit Sub
'presumes last cell in sheet is blank
Cells(Rows.Count, Columns.Count).Copy
rng1.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End Sub

Answer 2

这是我的版本：

Sub Test()

Dim rng as Range, cel as Range

Set rng = Thisworkbook.Sheets("Sheet1").Range("B6:T10000")

For Each cel In rng
    If Not IsError(cel.Value) Then _
        If Len(cel.Value) <> 0 And cel.HasFormula = False And _
            IsNumeric(cel.Value) Then cel.Value = Val(cel.Value)
Next cel

End Sub

我测试了它，并且工作正常希望这可以帮助。

Answer 3

尝试一下：

Sub Converter()
    Dim rBig As Range, r As Range, v As Variant
    Set rBig = Range("B6:T10000")
    For Each r In rBig
        v = r.Value
        If v <> "" And r.HasFormula = False Then
            If IsNumeric(v) Then
                r.Clear
                r.Value = v
            End If
        End If
    Next r
End Sub

修改＃1 ：

此版本忽略错误：

Sub Converter() Dim rBig As Range, r As Range, v As Variant Set rBig = Range("B6:T10000") For Each r In rBig v = r.Value If Not IsError(v) Then If v <> "" And r.HasFormula = False Then If IsNumeric(v) Then r.Clear r.Value = v End If End If End If Next r End Sub

Answer 4

ActiveSheet.Range("b5:b6004,h5:h6004").Select    
For Each xCell In Selection    
If IsNumeric(xCell) = False Then    
    xCell.Value = Val(xCell.Value)    
Else    
End If    
Next xCell

VBA将文本转换为除公式和非数字文本之外的数字

4 个答案: