excel大写数字转换成小写

一开始，我真是傻乎乎的，觉得这玩意儿大概只能靠眼神儿和耐心，一行行地瞧，然后在那小写单元格里手动输入。别提有多煎熬了，尤其数字一大，或者出现“零”，或者圆、角、分混在一起，保准能给你绕晕了。输错了？还得回头去对，来来回回，浪费的精力简直是犯罪！有时候一个不留神，“壹拾贰圆叁角”就给你敲成“一十二点三”，少了个“分”，或者“贰佰零伍元”写成“二百零五”，单位不对，这在财务上可是要命的。

后来，我才慢慢摸索，或者说，是被逼得没办法了，开始在网上、在同事那里打听，有没有什么Excel的绝招，能一口气把这些烦人的大写给驯服了。

你可能首先会想到，Excel里是不是有啥现成的函数？还真有那么一个，叫NUMBERSTRING函数。不过呢，这个函数不是用来转换现有的大写文字的，它是用来把一个数字，直接生成人民币大写或者小写格式的。它的用法是这样的： =NUMBERSTRING(数字, 类型)。那个“类型”参数挺关键，如果你填1，它就会把数字变成小写的中文数字，比如=NUMBERSTRING(12.34, 1)，结果出来就是“一十二元三角四分”。如果你填2，那就是大写，=NUMBERSTRING(12.34, 2)，结果就是“壹拾贰圆叁角肆分”。看清楚了吗？它是从数字到中文数字的转化，不是从大写中文数字文本到小写中文数字文本的转化。这对于我手里那一大堆已经输好的大写文字，就有点儿爱莫能助了。所以，光靠这个函数，解决不了我的燃眉之急。

真正的救星，还得是VBA，也就是宏！别一听VBA就觉得高不可攀，其实对于这种特定的需求，咱们只需要一段写好的代码，复制粘贴进去，运行一下就行了。简单来说，就是用一段小程序告诉Excel：“嘿，看到这些大写的文字了吗？帮我把它们识别出来，然后按照规则转换成对应的小写！”

想想那个画面：你选中需要转换的单元格区域，点一下运行，瞬间，原本刺眼的壹贰叁肆伍，就像变魔术一样，“唰”地一下全变成了清爽的一二三四五，带着元角分！那种成就感，别提多爽了。感觉自己瞬间从一个苦哈哈的数据搬运工，变成了掌握黑科技的效率达人。

具体怎么操作呢？深呼吸，不难的。
第一步，你需要打开VBA编辑器。这通常是通过按住Alt键再按F11键实现的。一个新的窗口会弹出来，这就是VBA的世界。
第二步，在这个VBA窗口里，你需要在左边的项目资源管理器里找到你的当前工作簿，然后右键点击，选择“插入”->“模块”。这就像是给你的工作簿开辟了一块秘密空间，专门存放你自己的小程序。
第三步，把那段神奇的VBA代码粘贴到新插入的模块里面。这段代码通常会定义一个函数或者一个子程序（Sub），用来执行转换任务。代码的样子大概是这样的（别担心看不懂，复制粘贴就好）：

“`vba
‘ 这是一个将人民币大写转换为小写的函数
Function RMB_Upper_To_Lower(UpperText As String) As String
Dim s As String
Dim Result As String
Dim i As Integer
Dim arrUpper As Variant
Dim arrLower As Variant
Dim arrUnit As Variant
Dim arrLevel As Variant
Dim sUnit As String
Dim sLevel As String

' 定义大写数字、小写数字、单位和量级
arrUpper = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾", "佰", "仟", "万", "亿", "圆", "角", "分")
arrLower = Array("零", "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "百", "千", "万", "亿", "元", "角", "分")
' 为了简化，这里主要处理数字和单位的映射，不包含复杂的进位逻辑
' 更复杂的转换可能需要更详细的逻辑，这里假设输入是规范的大写格式

s = Trim(UpperText)
Result = ""

' 遍历大写字符串，逐个字符替换
For i = 1 To Len(s)
    Dim char As String
    char = Mid(s, i, 1)
    Dim found As Boolean
    found = False
    ' 查找字符在大写数组中的位置
    For j = LBound(arrUpper) To UBound(arrUpper)
        If char = arrUpper(j) Then
            ' 如果找到，则替换为对应的小写字符
            Result = Result & arrLower(j)
            found = True
            Exit For
        End If
    Next j
    ' 如果不是预定义的字符，则原样保留 (可选，取决于需求)
    If Not found Then
        Result = Result & char
    End If
Next i

' 这里只是一个简单的字符替换，对于"拾"等有进位概念的，
' 或"贰拾"变成"二十"等，需要更复杂的判断和处理。
' 一个更健壮的函数需要解析整个大写字符串的结构和数值。
' 这是一个基础版本，主要针对纯数字和基本单位的替换。

' 考虑一些常见简化处理，比如 "壹拾" 直接替换成 "一十"
Result = Replace(Result, "壹拾", "一十") ' 注意：这个替换顺序和逻辑很重要
' 可能需要更多的 Replace 规则来处理各种组合，比如 贰拾 -> 二十 等

RMB_Upper_To_Lower = Result

End Function

‘ 这是一个通过Sub过程来批量处理选中单元格的例子
Sub ConvertSelectedRangeToUpperToLower()
Dim cell As Range
‘ 遍历当前选中的所有单元格
For Each cell In Selection
‘ 确保单元格不是空的
If Trim(cell.Value) <> “” Then
‘ 调用上面定义的函数进行转换，并将结果写回原单元格或另一个单元格
‘ 这里选择写回原单元格，如果你想写到另一列，可以修改 cell.Offset(0, 1).Value = …
cell.Value = RMB_Upper_To_Lower(cell.Value)
End If
Next cell
MsgBox “选中区域的大写数字转换小写完成！”, vbInformation
End Sub
``
**注意**：上面这段**VBA代码**是一个**基础示例**，它主要做了字符层面的替换，比如把“壹”变成“一”，把“圆”变成“元”等。**但是！**人民币大写转换成小写，有时候不仅仅是字面替换，它还涉及到位的概念，比如“贰拾”应该变成“二十”，“陆佰零伍”变成“六百零五”，这里面有数字和单位的组合规则，还有“零”的特殊处理。上面这段代码里的RMB_Upper_To_Lower函数，我给了一个简单的字符替换逻辑，并加了一个Replace(“壹拾”, “一十”)`的例子。一个完全准确、能处理所有复杂情况（比如到亿万、带小数点、多个零连在一起等）的人民币大写转小写函数，代码量会大很多，需要更精细的逻辑来解析整个字符串的数值结构。我提供的这个是一个入门级、演示逻辑的例子，如果你处理的数据格式相对标准和简单（比如主要是壹拾贰圆这种不带复杂位的），它可能够用；如果数据非常复杂，你可能需要找一个更成熟、更全面的VBA函数代码。网上有很多这方面的资源，可以搜“VBA 人民币大写转小写函数”。

第四步，回到Excel工作表。选中你想转换的那些包含大写数字的单元格。
第五步，运行你刚才粘贴进去的宏。有两种方式：
* 一种是如果你的代码是像上面Sub ConvertSelectedRangeToUpperToLower()这样的子程序，你可以按Alt+F8，会弹出一个宏列表，找到你刚才粘贴的那个宏名字（比如ConvertSelectedRangeToUpperToLower），然后点击“运行”。
* 另一种是如果你把转换逻辑写成了一个函数（比如上面代码里的RMB_Upper_To_Lower），你可以像使用Excel内置函数一样，在旁边的单元格里输入=RMB_Upper_To_Lower(需要转换的单元格)，然后向下填充。不过，我的示例代码里写了一个Sub，更适合批量处理。

我个人更倾向于用VBA的Sub来处理，因为它能直接批量转换选中的单元格，省去了在旁边列写公式、再复制粘贴值的步骤。当然，用自定义函数也有好处，比如可以在不改变原数据的情况下，在另一列看到转换结果，方便检查。这个看你的具体需求了。

第一次用VBA的时候，心里还是有点忐忑的，生怕把数据搞砸了。所以，强！烈！建！议！在运行宏之前，一定！一定！一定！要先备份你的Excel文件！出了问题，至少还有个退路。另外，先找一两个单元格试试水，看看转换结果对不对，确保代码能正确处理你的数据格式，再批量处理。

学会用VBA解决这个问题后，我感觉自己打开了新世界的大门。那些原本耗时耗力、让人焦躁不安的数据处理任务，变得轻松、高效起来。再看到那些密密麻麻的人民币大写，心里也不慌了，知道我有宏这个秘密武器，几秒钟就能搞定。

除了VBA，当然也有人会用一些Excel插件或者在线转换工具。插件的好处是方便，直接集成在Excel界面里；在线工具则不需要任何安装。但这些方法我用得不多，总觉得插件可能存在兼容性问题，而在线工具嘛……涉及钱的数据，传到第三方网站去处理，总归有点儿不放心。还是VBA来得踏实，代码就在自己电脑里运行，数据安全更有保障，而且一次写好，以后遇到类似情况可以反复使用，通用性强。

所以，如果你也常常被Excel里的大写数字转换成小写这件事儿折磨，别再硬抗了。学学怎么用NUMBERSTRING从数字生成小写（如果这是你的需求），或者更重要的是，花几分钟时间尝试一下VBA宏。网上搜一段成熟的大写转小写VBA代码，贴进去，运行一下，你会发现，那些令人头大的数字瞬间服服帖帖，效率提升可不是一点半点。那种掌控数据的感觉，真的太棒了！从前耗费的那些时间，现在可以用来喝杯咖啡，或者做点更有价值的事情。别再被数据牵着鼻子走了，是时候掌握点工具，让数据为你服务了。