Vba 如何让用户从对话框中输入范围

因此，我需要从用户那里获取一个范围，如何查询用户以选择一个范围，例如“

---

有没有办法做到这一点？

您可以尝试类似的方法。根据您的要求进行调整

Sub AskUserToSelectARangeToWorkWith()
Dim Rng As Range
On Error Resume Next
Set Rng = Application.InputBox("Select a Range to compare.", "Select A Range!", Type:=8)
If Rng Is Nothing Then
    MsgBox "You didn't select a Range.", vbCritical, "No Range Selected!"
    Exit Sub
End If
MsgBox "The Range selected is " & Rng.Address(0, 0)
End Sub

---

。并使用Type:=8作为范围输入。您的意思是让用户选择单元格/行/列的范围（或任何内容），还是让他们输入“10-15”之类的范围？

Sub AskUserToSelectARangeToWorkWith()
Dim Rng As Range
On Error Resume Next
Set Rng = Application.InputBox("Select a Range to compare.", "Select A Range!", Type:=8)
If Rng Is Nothing Then
    MsgBox "You didn't select a Range.", vbCritical, "No Range Selected!"
    Exit Sub
End If
MsgBox "The Range selected is " & Rng.Address(0, 0)
End Sub