Cacher is the code snippet organizer for pro developers

Sub sort_arr()
    Dim arr1(), arr2()
    arr1 = get_data_arr("data_3", 1)
    arr2 = get_data_arr("data_3", 2)
    Application.AddCustomList ListArray:=arr1
    Application.AddCustomList ListArray:=arr2
    'Application.AddCustomList ListArray:=Array("流式细胞分析仪", "流式细胞分选系统", _
        "超速离心机")
    'Application.AddCustomList ListArray:=Array("动物分子病原学与分子流行病学团队", _
        "动物流感创新团队")
End Sub