当我单击下拉列表时,我想要直接添加到每次点击时都会添加。这是我的代码Subadd()DimmyList$,i%myList=""Fori=1To7myList=myList&"ListItem"&i&","NextimyList=Mid(myList,1,Len(myList)-1)WithRange("B4").Validation.Delete.Add_Type:=xlValidateList,_AlertStyle:=xlValidAlertStop,_Formula1:=myListEndWithDimLigAsLongForLig=Range("B65536").End(xlUp).