使用excel sheet1中的水平/转置行填充ComboBox1

Question

我试图从我的Excel工作表中的一行填充ComboBox1。我在网上找到的所有东西都是从2006年开始的，当我尝试它时它不起作用。想知道这是否可能？

ComboBox name = ComboBox1
数据= Sheet1（A1：Z1）

请尽可能提供帮助。谢谢！

Answer 1

这应该可以解决问题：

Sub populateCombo()

  count = 1

  While (count <= 26)
    ActiveSheet.Cells(1, count).Copy (ActiveSheet.Cells(count, 27))
    count = count + 1
  Wend
  ComboBox1.List = Range("AA1:AA26").Value
  Range("AA1:AA26").Delete

End Sub