用VBA将两个类别的1个日期列转换为2个日期列

Sub ConvertDates()
    Dim srcRange As Range
    Dim destRangeA As Range
    Dim destRangeB As Range
    Dim cell As Range
    
    ' 设置源数据范围
    Set srcRange = Range("A2:B5") ' 假设数据从A2:B5开始，包含标题行
    
    ' 设置目标数据范围
    Set destRangeA = Range("D2") ' 假设类别A的日期从D2开始
    Set destRangeB = Range("E2") ' 假设类别B的日期从E2开始
    
    ' 清空目标数据范围
    destRangeA.Resize(srcRange.Rows.Count, 1).ClearContents
    destRangeB.Resize(srcRange.Rows.Count, 1).ClearContents
    
    ' 遍历源数据范围
    For Each cell In srcRange.Columns(1).Cells
        ' 根据类别将日期复制到目标数据范围
        If cell.Offset(0, 1).Value = "A" Then
            destRangeA.Value = cell.Value
            Set destRangeA = destRangeA.Offset(1, 0)
        ElseIf cell.Offset(0, 1).Value = "B" Then
            destRangeB.Value = cell.Value
            Set destRangeB = destRangeB.Offset(1, 0)
        End If
    Next cell
End Sub