如何在 Excel 中將日期格式化為大寫月份？

在 Excel 中處理日期時，有時您可能需要將月份部分以大寫字母顯示，以提高可見性、符合報告標準或滿足特定的格式要求。例如，將一系列日期如 01/15/2024 轉換為大寫文字 JAN 或 JANUARY。Excel 並未提供直接內建的大寫月份格式，但通過一些實用的方法，您可以輕鬆實現此格式化。本文介紹了幾種高效的解決方案，幫助您在 Excel 中將日期格式化為大寫月份，包括使用公式、Kutools for Excel 和 VBA 進行自動轉換。請透過以下指南探索最適合您情況的方法。

使用公式將日期格式化為大寫月份
使用 Kutools for Excel 將日期格式化為大寫月份
使用 VBA 程式碼將日期格式化為大寫月份

使用公式將日期格式化為大寫月份

公式是提取和顯示 Excel 中日期元件的便捷方式。以下方法允許您使用內建公式將日期轉換為大寫月份縮寫或全名。如果您希望結果出現在新單元格中並具有動態格式（當原始日期更改時，輸出會自動更新），則此方法非常實用。

1. 選擇一個空白單元格（例如 C2）放在您要格式化為大寫月份的日期旁邊，然後在公式欄中輸入以下公式：

=UPPER(TEXT(A2,"mmm"))

按下 Enter 後，所選單元格將顯示三個字母的月份縮寫，以大寫表示（例如 SEP）。

2. 若要將此格式應用於其他行，請保持單元格 C2 的選擇狀態，然後拖動填充柄（單元格右下角的小方塊）向下移動到您的列表旁。每個日期現在都將由其相應的大寫月份縮寫表示。

當您處理需要月份名稱標準化格式的報告、摘要表或儀表板時，可能會發現這種方法特別有用。

• 優點：該解決方案是動態的——源日期的更改會自動更新結果。無需外掛程式或高級技能。
• 限制：結果存儲在單獨的列中，而不是原始列中。如果您需要就地格式化（覆蓋原始值），請考慮使用 VBA 或外掛程式方法。

注意事項與提示：

1. 如果您希望顯示帶有年份的月份（例如大寫的 JAN 24），請在所需單元格（例如 C2）中使用以下公式：

=UPPER(TEXT(A2,"mmm YY"))



2. 要顯示完整的大寫月份名稱（例如 JANUARY）：

=UPPER(TEXT(A2,"mmmm"))

3. 輸入所需的公式後，務必按 Enter，然後使用填充柄將其應用於完整的日期範圍。
4. 如果您的日期未被識別為有效的 Excel 日期（例如，作為文本輸入），則公式將不會返回正確的結果。確保源數據已設置為日期格式。

使用 Kutools for Excel 將日期格式化為大寫月份

Kutools for Excel 提供的「應用日期格式」功能能夠靈活且快速地將日期轉換為任何首選格式，包括大寫月份。對於偏好圖形介面而非編輯公式的用戶來說，此方法非常有用，並且可以輕鬆地就地格式化單元格或快速自訂日期外觀。

1. 選擇要轉換為大寫月份的日期單元格。然後，在 Excel 功能區上，前往 Kutools > 格式 > 應用日期格式。（如果看不到 Kutools 標籤，請確保它已安裝並啟用。）

2. 在應用日期格式對話框中，從日期格式框中選擇所需的日期格式。單擊確定確認。

完成後，所選單元格將根據您的設定更改為顯示月份縮寫或完整月份名稱。 

• 優點：Kutools 方法直接易用，適合不願使用公式的用戶，並且能快速處理大範圍的數據。
• 提示：應用日期格式後，結果仍然是日期，可以用於其他計算或進一步格式化。

使用 VBA 程式碼將日期格式化為大寫月份

如果您需要自動且就地的轉換——將原始日期值替換為相應的大寫月份名稱——或者想快速處理大量數據而無需輔助列，可以利用 VBA 宏。此方法對於批量操作非常高效，並讓您完全控制輸出格式。

適用場景：如果您想覆蓋原始數據、自動化轉換過程或處理大量單元格而不使用額外列或手動操作，請使用此方法。

注意事項：請注意，運行此宏將用大寫月份名稱替換原始日期，導致這些單元格中的原始日期數據丟失。建議在運行宏之前備份您的數據。

1. 點擊「開發工具」>「Visual Basic」打開 VBA 編輯器。在 Microsoft Visual Basic for Applications 窗口中，點擊「插入」>「模組」。將以下代碼複製並粘貼到模組中：

Sub ConvertDatesToUppercaseMonths()
    Dim WorkRng As Range
    Dim Cell As Range
    Dim OutputType As Integer
    Dim Msg As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the range of dates to convert", xTitleId, WorkRng.Address, Type:=8)
    
    Msg = "Enter 1 for 3-letter month (JAN), 2 for full month name (JANUARY):"
    OutputType = Application.InputBox(Msg, xTitleId, 1, Type:=1)
    
    For Each Cell In WorkRng
        If IsDate(Cell.Value) Then
            If OutputType = 2 Then
                Cell.Value = UCase(Format(Cell.Value, "mmmm"))
            Else
                Cell.Value = UCase(Format(Cell.Value, "mmm"))
            End If
        End If
    Next
End Sub

2. 要使用該宏，點擊 執行 按鈕，然後在彈出的對話框中選擇所需的日期單元格範圍。系統將提示您選擇 1 三字母縮寫（例如 JAN）或 2 完整月份名稱（例如 JANUARY）。在您做出回應後，宏將按照指定的方式用大寫月份名稱替換原始日期值。

• 優點：簡化了整個列或範圍的轉換；提供了靈活性（縮寫或完整月份）；在大型數據集上運行迅速；覆蓋原始值以減少手動清理工作。
• 限制：原始日期值被覆蓋——如果您需要保留原始數據，請確保已有備份。工作簿必須啟用宏。
• 故障排除提示：如果宏似乎沒有任何作用，請確認選擇範圍包含有效日期的單元格，並且宏已啟用且未被 Excel 安全設置阻止。