使用inputbox实现Vba中的动态范围

Sub DynamicRange()
    Dim rng As Range
    Dim userInput As Variant
    
    ' 弹出输入框，获取用户输入的值
    userInput = InputBox("请输入要处理的数据范围：")
    
    ' 判断用户是否输入了值
    If userInput <> "" Then
        ' 使用用户输入的值构造数据范围
        Set rng = Range(userInput)
        
        ' 检查数据范围是否有效
        If Not rng Is Nothing Then
            ' 在这里编写对数据范围的处理代码
            ' 例如，可以使用rng来访问和操作用户指定的数据范围
            
            ' 以下是一个示例，计算数据范围中每个单元格的总和
            Dim total As Double
            Dim cell As Range
            
            For Each cell In rng
                total = total + cell.Value
            Next cell
            
            ' 弹出消息框显示计算结果
            MsgBox "数据范围 " & rng.Address & " 的总和为：" & total
        Else
            MsgBox "输入的数据范围无效！"
        End If
    Else
        MsgBox "没有输入数据范围！"
    End If
End Sub