Excel：数字转大写与快速获取当前日期技巧

Excel技巧大放送：一键将数字转换为大写，轻松获取今日日期

在日常的办公和学习中，Excel无疑是一个不可或缺的工具。它不仅可以处理大量的数据，还能进行各种复杂的计算和分析。然而，在使用Excel的过程中，你是否曾经遇到过需要将数字转换为大写汉字，或者快速获取当前日期的需求呢？别担心，今天就来为大家揭秘两个Excel的实用小技巧，让你在处理数据时更加得心应手。

首先，我们来聊聊如何将数字转换为大写汉字。在中文环境下，我们经常会遇到需要将金额等数字转换为大写汉字的情况，比如将“123456”转换为“壹拾贰万叁仟肆佰伍拾陆”。这样的转换不仅有助于避免数字被篡改，还能让数据更加直观易读。在Excel中，你可以通过自定义函数的方式来实现这一功能。

具体操作步骤如下：

1. 打开Excel，按下“Alt+F11”键，进入VBA编辑器。

2. 在VBA编辑器中，点击“插入”菜单，选择“模块”，然后在新建的模块窗口中粘贴以下代码：

```vba

Function NumberToChinese(num As Double) As String

Dim arrNum() As String

Dim arrChinese() As String

Dim i As Integer, j As Integer

Dim temp As String

Dim result As String

'定义数字和对应大写汉字的数组

arrNum = Split("0,1,2,3,4,5,6,7,8,9", ",")

arrChinese = Split("零,壹,贰,叁,肆,伍,陆,柒,捌,玖", ",")

'处理整数部分

temp = CStr(Int(num))

result = ""

i = Len(temp)

Do While i > 0

result = arrChinese(Val(Mid(temp, i, 1))) & result

'添加单位

Select Case (Len(temp) - i + 1) Mod 4

Case 1: result = result & "万"

Case 2: result = result & "仟"

Case 3: result = result & "佰"

End Select

i = i - 1

Loop

'处理小数部分（如果需要）

If num - Int(num) > 0 Then

result = result & "点"

temp = Mid(CStr(num * 100), 3, 2)

i = Len(temp)

Do While i > 0

result = result & arrChinese(Val(Mid(temp, i, 1)))

i = i - 1

Loop

End If

'去除多余的单位（如“零万”、“零仟”等）

result = Replace(result, "零万", "万")

result = Replace(result, "零仟", "")

result = Replace(result, "零佰", "")

result = Replace(result, "零点零", "点零")

result = Replace(result, "零", "")

'处理特殊情况（如“一万零一”应为“一万零壹”）

If InStr(result, "零") > 0 And InStr(result, "万") > InStr(result, "零") Then

result = Replace(result, "零", "零壹", 1, 1)

End If

'处理结果为空的情况（如输入为0）

If result = "" Then result = "零"

NumberToChinese = result

End Function

```

3. 关闭VBA编辑器，回到Excel工作表。

4. 在一个单元格中输入`=NumberToChinese(A1)`（假设你要转换的数字在A1单元格中），然后按下回车键。

此时，你应该就能在单元格中看到数字被转换为大写汉字的结果了。这个函数能够处理整数和小数部分的转换，并且考虑了各种可能的特殊情况，比如“零”的添加和去除、单位的添加等。

接下来，我们来聊聊如何快速获取当前日期。在Excel中，你可以使用`TODAY()`函数来获取当前的系统日期。这个函数不需要任何参数，只需要在单元格中输入`=TODAY()`，然后按下回车键，就能显示当前的日期了。而且，每当你打开工作簿时，`TODAY()`函数都会自动更新为最新的日期，非常方便。

除了直接使用`TODAY()`函数外，你还可以结合其他函数来实现更复杂的日期处理需求。比如，