如何用vba给单元格区域添加数据有效性下拉列表？

在vba中Range对象的Validation属性可以返回数据有效性对象Validation。

要给单元格区域添加数据有效性，需要先用Validation对象的Delete方法删除之前的数据有效性，然后再用Validation对象的Add方法添加。

以下是一段给单元格添加下拉列表的示例代码：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Dim oRng As Range
    Set oWK = Excel.ActiveSheet
    Set oRng = oWK.Range("a1:a100")
    With oRng.Validation
        '先删除之前的数据有效性
        .Delete
        '再添加新的数据有效性下拉列表
        .Add Type:=xlValidateList, Formula1:="红,黄,蓝,绿"
    End With
End Sub

上述代码虽然可以给单元格添加下拉列表，但是Formula1参数的字符串不能超过255个字符。

如果要显示的下拉列表项过多，字符串超过了255，则无法添加下拉列表。