使用Worksheet_Change自动将日期更改为YYYYMMDD格式

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    
    ' 定义需要进行日期格式更改的单元格范围
    Set rng = Range("A1:A100") ' 将范围更改为你实际需要的范围
    
    ' 检查更改是否在指定的范围内
    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件处理，避免进入无限循环
        
        ' 循环遍历更改的单元格
        For Each cell In Intersect(Target, rng)
            ' 检查单元格是否包含日期
            If IsDate(cell.Value) Then
                ' 将日期格式更改为YYYYMMDD
                cell.Value = Format(cell.Value, "YYYYMMDD")
            End If
        Next cell
        
        Application.EnableEvents = True ' 启用事件处理
    End If
End Sub