使用单元格内容设置范围变量

Sub SetRangeVariable()
    Dim rng As Range
    Dim value As String
    
    ' 获取单元格内容
    value = Range("A1").Value
    
    ' 根据单元格内容设置范围变量
    Select Case value
        Case "A"
            Set rng = Range("B1:B10")
        Case "B"
            Set rng = Range("C1:C10")
        Case "C"
            Set rng = Range("D1:D10")
        Case Else
            MsgBox "Invalid value!"
            Exit Sub
    End Select
    
    ' 使用范围变量进行操作
    rng.Select
    ' 其他操作...
End Sub