如何使用VBA在Excel中的下拉列表中select第一个iterm

我使用数据validation来创build一些下拉列表。 任何人都知道如何使用VBA在下拉列表中select第一个iterm？

我尝试了“Splite”function：

cell.Value = Split(cell.Validation.Formula1, ",")(0) 

但它不能正常工作，只有在“数据validation”窗口中的源代码中input“option1，option2”时才能正常工作。 如果我将源代码引用到一系列选项，那么它将返回错误。

我想应该有一些更聪明的方法。

谢谢！

Answer 1

 Sub test() Dim adr As String With Range("c4") adr = Mid(.Validation.Formula1, 2) Debug.Print Range(adr).Cells(1, 1) End With End Sub 

所以你的答案是：

set c = range("c4")
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value