如何在VBA excel中使用输入框从起始单元格和结束单元格选择范围

Sub SelectRangeWithInputBox()
    Dim startCell As Range
    Dim endCell As Range
    Dim selectedRange As Range
    
    ' 弹出输入框，让用户输入起始单元格地址
    Set startCell = Application.InputBox("请选择起始单元格:", Type:=8)
    
    ' 弹出输入框，让用户输入结束单元格地址
    Set endCell = Application.InputBox("请选择结束单元格:", Type:=8)
    
    ' 检查用户是否取消了输入
    If startCell Is Nothing Or endCell Is Nothing Then
        Exit Sub
    End If
    
    ' 构建选择范围
    Set selectedRange = Range(startCell, endCell)
    
    ' 在选择范围上执行操作，这里只是简单地选中范围并填充颜色作为示例
    selectedRange.Select
    selectedRange.Interior.Color = RGB(255, 0, 0)
End Sub