excel-vba 使用带定界符的字符串代替动态数组

示例

在非常大的数据集上,在VBA中使用动态数组可能很麻烦且耗时。当在动态数组中存储简单数据类型(字符串,数字,布尔值等)时,可以ReDim Preserve通过将Split()函数与一些巧妙的字符串过程配合使用来避免在VBA中使用动态数组所需的语句。例如,我们将看一个循环,该循环根据某些条件将范围内的一系列值添加到字符串中,然后使用该字符串填充ListBox的值。

Private Sub UserForm_Initialize()

Dim Count As Long, DataString As String, Delimiter As String

For Count = 1 To ActiveSheet.UsedRows.Count

    If ActiveSheet.Range("A" & Count).Value <> "Your Condition" Then

        RowString = RowString & Delimiter & ActiveSheet.Range("A" & Count).Value

        Delimiter = "><" 'By setting the delimiter here in the loop, you prevent an extra occurance of the delimiter within the string

    End If

Next Count

ListBox1.List = Split(DataString, Delimiter)

End Sub

Delimiter字符串本身可以被设置为任意值,但它是明智的选择,不会自然集内发生的值。假设您正在处理一列日期。在那种情况下,使用.,-或/作为分隔符是不明智的,因为可以将日期格式化为使用其中任何一种格式,从而产生比您预期的更多的数据点。

注意:使用此方法有一些限制(即最大字符串长度),因此在数据集非常大的情况下应谨慎使用。这不一定是在VBA中创建动态数组的最快或最有效的方法,但它是可行的选择。

以上是 excel-vba 使用带定界符的字符串代替动态数组 的全部内容, 来源链接: utcz.com/z/315859.html

回到顶部