创建可变数量的范围，并在VBA中为其指定变量名称

Sub CreateDynamicRange()
    Dim myRange() As Variant ' 声明一个动态数组
    Dim numElements As Integer ' 范围的元素数量
    Dim i As Integer ' 循环计数器
    
    ' 获取范围的元素数量
    numElements = InputBox("请输入范围的元素数量：")
    
    ' 调整数组的大小
    ReDim myRange(1 To numElements)
    
    ' 为范围的每个元素指定变量名称
    For i = 1 To numElements
        myRange(i) = InputBox("请输入第 " & i & " 个元素的变量名称：")
    Next i
    
    ' 输出范围的变量名称
    For i = 1 To numElements
        MsgBox "第 " & i & " 个元素的变量名称是：" & myRange(i)
    Next i
End Sub