如何在 Excel 中将月份名称转换为数字?

ms excelmicrosoft technologiescomputers更新于 2025/2/24 12:28:17

在 Excel 中，您可能有时需要将月份名称转换为数字。例如，将一月转换为 1，将二月转换为 2，等等。数字只不过是它们出现的顺序编号。阅读本教程，了解如何在 Excel 中将月份名称转换为数字，反之亦然。我们可以使用 VBA 应用程序完成这两项任务。这里我们需要借助 VBA 应用程序，因为无法直接使用公式完成。

在 Excel 中将月份名称转换为数字

在这里，我们将插入一个 VBA 模块，然后运行代码来完成任务。让我们看一个使用 VBA 应用程序在 Excel 中将月份名称转换为数字的简单过程。

步骤 1

假设有一张包含飞蛾列表的 Excel 工作表，如下图所示。

现在右键单击工作表名称，选择"查看代码"以打开 VBA 应用程序，然后点击"插入"并选择"模块"。

右键单击 >"查看代码">"插入">"模块"

步骤 2

然后，如下图所示，在文本框中输入以下程序。

程序

Sub ChangeNum()
'Update By Nirmal
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Convert to number"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        Rng.Value = Month(DateValue("03/" & Rng.Value & "/2014"))
    End If
Next
End Sub

步骤 3

现在将工作表保存为启用宏的工作簿，点击 F5 运行代码，选择值范围，然后点击"确定"。

保存 > F5 > 选择范围 > 确定

如果我们需要将数字转换为月份名称，可以使用程序 1。

程序 1

Sub ChangeMonth()
'Update By Nirmal
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Change to Month Name"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.Format(Rng.Value * 29, "mmmm")
Next
End Sub