Excel VBA:如何从一列的所有单元格中提取日期并将文本放入另一列？

Sub ExtractDate()
    Dim rng As Range
    Dim cell As Range
    Dim dateValue As Date
    
    ' 设置要提取日期的列范围
    Set rng = Range("A1:A10") ' 将范围修改为你需要的列范围
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格中的值是否为日期
        If IsDate(cell.Value) Then
            ' 提取日期值
            dateValue = CDate(cell.Value)
            
            ' 将日期值转换为文本并放入另一列
            cell.Offset(0, 1).Value = Format(dateValue, "yyyy-mm-dd") ' 将偏移量修改为你需要的列偏移量
        End If
    Next cell
End Sub