在循環中填充多個excel下拉列表

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

代碼是正確的。但是問題是什麼命名下拉菜單。他們應該有獨特的名字。