vba如何将数组添加到下拉列表中，数组中的某些元素带有逗号，要求不影响原数组的值
129浏览 · 2024-03-27 14:35:56
如果数组中的某些元素带有逗号，可以使用双引号来解决。在将数组元素连接为字符串时，在元素两端加上双引号，这样逗号就不会被解释成分隔符。例如：
Sub AddArrayToDropDown()
Dim arr() As String
Dim i As Integer
'定义数组
arr = Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,hello,world,this,is,a,test", ",")
'将数组中的元素添加到下拉列表中
For i = 0 To UBound(arr)
arr(i) = """" & arr(i) & """"
Next i
With ActiveSheet.Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(arr, ",")
End With
End Sub