借助 Application.InputBox() 方法让用户选择多个单元格

Question

我在

VBA

中有一个代码，在

inputBox method

的帮助下，用户可以选择一个

cell

，

a range

。但是我需要一个输入框，用户可以在其中选择多个单元格范围，（不是借助

Selection

方法！！）然后拆分每个单元格值。

代码如下

Set Group = Application.InputBox(prompt:="Select a cell to be expanded", Left:=100, Type:=8)

Dim str_group As String

Debug.Print Split(str_group, ":")(0)

type:=8

提供仅选择一个单元格的能力，Mcrst即使用户选择多个单元格，它也只读取第一个单元格范围（地址）我需要在

:

之后看到并能够阅读它。

Answer 1

试试微软官网的这篇文章

https://learn.microsoft.com/en-us/office/vba/api/excel.application.inputbox

在我的例子中，下面的代码工作得很好。

Sub test()
    Dim myRange As Variant
    Set myRange = Application.InputBox(prompt:="Select a cell to be expanded", Type:=8)
    Debug.Print myRange.Address
End Sub

当我选择这些单元格时，调试输出是

$A$4:$C$11

。希望这对您有帮助...