Question

我有一列填充了3 days，6 days等值。

如何删除文本并强制将它们转换为整数？

Answer 1

如果你想转换它们＆＃34;就地＆＃34;，那么选择单元格并运行这个小宏：

Sub fixData()
    Dim r As Range, v As String, i As Long

    For Each r In Intersect(Selection, ActiveSheet.UsedRange)
        v = r.Text
        i = InStr(1, v, " ")
        If i <> 0 Then
            r.Value = Mid(v, 1, i - 1)
        End If
    Next r
End Sub

Answer 2

您可以尝试替换数据旁边的列：

=substitute(A1," days","") +0

替换替换字符串部分＆＃34;数据＆＃34;什么都没有（zls＆＃34;＆＃34;）并且添加零会返回一个数字。这假设您的数据在col A中。向下拖动公式并瞧

如果您不介意更改数据，您也可以选择全部点击ctrl + F选择查找和替换查找字段是＆＃34;天＆＃34;，将替换为空白并点击＆＃34;全部替换＆＃34;

Answer 3

如果是VBA，您实际上可以使用Val函数来执行此操作。如果A1具有数据，并且您希望在A2

中使用此整数值

类似于：

Range("A2").value =  Val(Range("A1").value)

返回的值实际上是一个double。如果双倍不够好，

Range("A2").value =  CInt(Val(Range("A1").value))

希望有所帮助。

我如何转换＆＃34; 3天＆＃34;到＆＃34; 3＆＃34;在Excel？

3 个答案: