excel VBA 关于动态数组模仿list容器的相关操作函数

黑鸦log

于 2019-03-26 15:04:36 发布

阅读量2.5k

点赞数 1

分类专栏： excel vba

本文链接：https://blog.csdn.net/c0411034/article/details/88820797

版权

本文介绍了如何在Excel VBA中使用动态数组模拟List容器的功能，包括声明动态数组、显示数组元素、移除指定位置元素、数组追加、比较数组相同性、获取与设置数组末尾元素等关键操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

声明一个动态数组

Dim arrays() As String 'z字符串型数组

显示所有数组元素，以，间隔

Function display_array(arrays)
Dim result As String
result = ""
Dim array_len As Integer
array_len = UBound(arrays) + 1
For i = 0 To array_len - 1
    If result = "" Then
        result = arrays(i)
    Else
        result = result & "," & arrays(i)
    End If
Next

移除数组指定位置的元素

Function remove_index_in_array(arrays, index)
    Dim array_len As Integer
    array_len = UBound(arrays) + 1
    For i = index To array_len - 2
        arrays(i) = arrays(i + 1)
    Next
    If (array_len < 2) Then
        Exit Function
    End If
    ReDim Preserve arrays((array_len - 2))
    remove_index_in_array = arrays
End Function