A列上某个范围的Excel vba复制不同列的值

Sub CopyDifferentColumns()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取A列最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历A列中的每个单元格
    For i = 1 To lastRow
        ' 判断A列当前单元格的值
        Select Case Cells(i, 1).Value
            Case "A"
                ' 复制B列的值到C列
                Cells(i, 3).Value = Cells(i, 2).Value
            Case "B"
                ' 复制C列的值到D列
                Cells(i, 4).Value = Cells(i, 3).Value
            Case "C"
                ' 复制D列的值到E列
                Cells(i, 5).Value = Cells(i, 4).Value
            ' 可以根据需要继续添加其他条件和复制操作
        End Select
    Next i
End Sub