请问怎样使用函数将 一二三,直接转换为123? =SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),[DBNum2][$

第一种方法是使用Excel的函数来实现。可以使用SUBSTITUTE和TEXT函数来将“一二三”转换为“123”。具体步骤如下:

在Excel中,打开一个新的工作表。

在第一列输入“一二三”。

在第二列输入以下公式:=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),[DBNum2][$-804]),”一”,”1″),”二”,”2″)

按下回车键,公式将自动计算并将“一二三”转换为“123”。

将第二列的单元格复制并粘贴到需要转换的单元格中,即可将“一二三”转换为“123”。

第二种方法是使用VBA宏来实现。具体步骤如下:

在Excel中,按下Alt + F11打开Visual Basic Editor。

在左侧的项目资源管理器中,双击需要添加宏的工作表。

在代码窗口中,输入以下代码:

请问怎样使用函数将 一二三,直接转换为123? =SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),[DBNum2][$

Function ChineseToNumber(ByVal str As String) As Long
Dim i As Long
Dim n As Long
n = 0
For i = 1 To Len(str)
Select Case Mid(str, i, 1)
Case “一”
n = n * 10 + 1
Case “二”
n = n * 10 + 2
Case “三”
n = n * 10 + 3
Case “四”
n = n * 10 + 4
Case “五”
n = n * 10 + 5
Case “六”
n = n * 10 + 6
Case “七”
n = n * 10 + 7
Case “八”
n = n * 10 + 8
Case “九”
n = n * 10 + 9
End Select
Next i
ChineseToNumber = n
End Function

关闭Visual Basic Editor。

在Excel中,输入以下公式:=ChineseToNumber(“一二三”)

按下回车键,公式将自动计算并将“一二三”转换为“123”。

将公式复制并粘贴到需要转换的单元格中,即可将“一二三”转换为“123”。

无论是使用函数还是VBA宏,都可以将“一二三”转换为“123”,具体选择哪种方法取决于个人的喜好和需求。

© 版权声明
THE END
喜欢就支持一下吧
点赞12