Excel中如何将带有小数点的数字替换成对应的字母

发布网友发布时间：2022-03-09 02:07

共1个回答

热心网友时间：2022-03-09 03:36

1、定义如下宏
Sub MyReplace()
Dim str() As Variant
Dim i As Integer
Dim s As String

s = [A1]
' 请把数组的元素的值改成你需要的值
str = Array("零", "E", "二", "S", "四", "W", "六", "七", "八", "九")
s = Replace(s, ".", "R")
For i = LBound(str) To UBound(str)
s = Replace(s, CStr(i), str(i))
Next i
[A2] = s
End Sub

2、在A1中输入小数，执行以上宏，替换后的值显示在A2追问谢谢，可以替换了，请问一列数字（A1 A2 A3.........) 怎么运行这个宏呢？

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

首页

文章

Excel中如何将带有小数点的数字替换成对应的字母