在循环

Question

我有一个for循环，可以在我的Excel工作表的不同部分创建多个下拉列表。但是，我很难用列表填写这些内容。列表应该从ws中的表格中获得。我想这里的问题是，在命名我的组合框时，它不会被指定为对象。 这是我的代码。有谁知道如何做到这一点？提前谢谢。

Private Sub CommandButton1_Click()

Set ws = Sheets(Array("rpi301", "rpi302", "rpi303", "rpi304", "rpi305"))

For Each Sh In ws
    Set Cell = Range(Sh.Range("B8").Value & CStr(Sh.Range("B9").Value))
    With Cell
        ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height).Name = "Combo"
        ActiveSheet.Shapes("Combo").ControlFormat.ListFillRange = Sh.Range("B2:B7")
    End With
Next 
End Sub

Answer 1

代码是对的。但问题是什么命名下拉列表。他们应该有独特的名字。