你的这个代码应该是可以实现的。但是列表中没有数据，这是因为你的代码写在组合框的Change事件中。也就是说，要组合框里的数据发生变化，才会导入列表。取消“设计模式”后，你在组合框中输入任意数据，回车看看。
combox1.rowsource=ws.name & "!a2:a" & i或者ComboBox1.List=Application.Transpose(WS.Range("a1:a"&I))
