Excel中文本型Hijri日期批量转标准日期格式问题求助

方案1：使用Excel自带「分列」功能（无需代码，推荐优先尝试） #

• 选中存储Hijri日期的整列
• 点击顶部菜单栏「数据」→「分列」
• 向导第1步：默认选择「分隔符号」，直接点击「下一步」
• 向导第2步：取消所有分隔符勾选，点击「下一步」
• 向导第3步：列数据格式选择「日期」，下拉框选择和你日期匹配的顺序（比如你的日期是日/月/年就选「DMY」，年/月/日就选「YMD」），点击「完成」

操作后Excel会自动批量重新识别所有单元格内容为Hijri日期类型，自动套用你预设的格式。

方案2：优化版VBA脚本（稳定处理10万行以上数据无中断） #

你之前的脚本不稳定是因为SendKeys严重依赖窗口焦点，大数据量下必然中断，替换为直接赋值触发Excel内容重识别即可，同时关闭屏幕更新大幅提升运行效率：

Sub BatchConvertHijriDate()
    Dim selectedRange As Range
    Dim originalScreenUpdate As Boolean
    
    ' 保存原有屏幕更新状态，关闭后提升运行效率
    originalScreenUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    On Error GoTo ErrHandler
    Set selectedRange = Application.Selection
    
    ' 统一设置日期格式
    selectedRange.NumberFormat = "[$-1970000]B2dd/mm/yyyy;@"
    ' 批量触发内容重识别，无需逐单元格遍历
    selectedRange.Value = selectedRange.Value
    
ErrHandler:
    ' 恢复屏幕更新设置
    Application.ScreenUpdating = originalScreenUpdate
    If Err.Number <> 0 Then
        MsgBox "处理出错：" & Err.Description, vbExclamation
    End If
End Sub

使用方法：选中需要转换的日期区域，运行脚本即可，全程无卡顿，不会中途停止。

方案3：辅助列公式转换 #

如果不想改动原列数据也不想用VBA，可以新增辅助列完成转换：假设原始Hijri日期存在A列，在B1单元格输入公式=TEXT(--A1,"[$-1970000]B2dd/mm/yyyy")，下拉填充后B列就是可正常识别的Hijri日期，需要的话可以复制B列，选择性粘贴为值覆盖原列即可。

内容的提问来源于stack exchange，提问作者Abdullah Bayounis