将整列数据格式从yyyy-mm-dd hh:mm更改为dd/mm/yyyy VBA

Sub ChangeDateFormat()
    Dim rng As Range
    Dim cell As Range
    Dim str As String
    Dim parts() As String
    
    '选择需要转换格式的列范围
    Set rng = Range("A1:A10") '将 A1:A10 替换为你的列范围
    
    '遍历选定范围中的每个单元格
    For Each cell In rng
        str = cell.Text '获取单元格中的文本
        
        '使用空格或者冒号分割日期和时间部分
        parts = Split(str, " ")
        
        '判断是否有日期和时间两个部分
        If UBound(parts) = 1 Then
            '日期格式为 "yyyy-mm-dd"
            parts = Split(parts(0), "-")
            str = parts(2) & "/" & parts(1) & "/" & parts(0) '更改日期格式为 "dd/mm/yyyy"
            
            cell.Value = str '将更改后的值赋给单元格
        End If
    Next cell
End Sub