VBA入门46：Array函数、Join函数

1

Array函数可以将“英文逗号”隔开的一个值表生成一个下标从0开始的一维数组。

如果是数字，则如下写

未

完

待

续

2

Join函数和Split函数反向操作，它将一个一维数组，以某个字符链接起来，生成一个字符串。

未

完

待

续

栗子

找出小乔喜欢吃的水果，并将其填写在F1单元格。

非数组处理

Sub 非数组处理()

    Dim i, s$

    For i = 2 To 19

        If Cells(i, 1) = '小乔' Then

            s = s & '/' & Cells(i, 2)

        End If

    Next

    [f1] = Mid(s, 2, 99)

End Sub

数组处理

Sub 数组处理()

    Dim arr, i&, s(), k&

    arr = [a1].CurrentRegion

    For i = 2 To UBound(arr)

        If arr(i, 1) = '小乔' Then

            k = k 1

          '将喜欢的水果放进一维数组 s

            ReDim Preserve s(1 To k)

            s(k) = arr(i, 2)

        End If

    Next

    [f1] = Join(s, '/') '将数组连接起来，放到单元格

End Sub

END