使用combobox

我如何获得行(A1,B1,C1,等等)中find的所有单元格值(例如,date)并将其放置在combobox?

我尝试过,但没有运气:

Private Sub ComboBox1_DropButtonClick() With Worksheets("Sheet1") ComboBox1.List = .Range("A1:Z" & .Range("A" & .Columns.Count).End(xlRight).Column).Value End With End Sub 

像这样的东西

虽然你可能想要进一步的工作范围,以消除空白,傻瓜等

 Private Sub ComboBox1_DropButtonClick() Dim rng1 As Range With Sheets(1) Set rng1 = .Range([a1], Cells(1, Columns.Count).End(xlToLeft)) ComboBox1.List = Application.Transpose(rng1.Value) End With End Sub