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

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Access。在Excel中，可以使用VBA将两个类别的一个日期列转换为两个日期列。

首先，我们需要明确两个类别的日期列是如何定义的。假设我们有一个日期列包含日期和类别信息，如下所示：

日期类别 2022/01/01 A 2022/01/02 B 2022/01/03 A 2022/01/04 B

我们的目标是将上述数据转换为两个日期列，一个列包含类别A的日期，另一个列包含类别B的日期。可以按照以下步骤使用VBA实现：

打开Excel，并按下Alt + F11进入VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中，编写以下VBA代码：

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