在Excel VBA中为不同的目标值添加多个范围

Sub AddRanges()
    Dim targetValue As String
    targetValue = Range("A1").Value '假设目标值在单元格A1中

    If targetValue = "A" Then
        '添加范围1的代码
        Range("B1").Select '假设范围1为单元格B1
        '...
    ElseIf targetValue = "B" Then
        '添加范围2的代码
        Range("C1").Select '假设范围2为单元格C1
        '...
    ElseIf targetValue = "C" Then
        '添加范围3的代码
        Range("D1").Select '假设范围3为单元格D1
        '...
    End If
End Sub