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

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

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

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

第1步

考虑一个包含蛾子列表的Excel表格，类似于下面的图片。

如何将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

如何将Excel中的月份名称转换为数字？

第3步

现在将工作表保存为支持宏的工作簿，点击F5运行代码，选择数值范围，并点击确定。

**保存 > F5 > 选择范围 > OK **

如何将Excel中的月份名称转换为数字？

如果我们需要将数字转换为月份名称，我们可以使用方案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