VBA入門46：Array函數、Join函數

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