Join函數(shù)和Split函數(shù)反向操作，它將一個(gè)一維數(shù)組,，以某個(gè)字符鏈接起來(lái),，生成一個(gè)字符串。

找出小喬喜歡吃的水果,，并將其填寫(xiě)在F1單元格,。

Sub 非數(shù)組處理()

    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 數(shù)組處理()

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

    arr = [a1].CurrentRegion

    For i = 2 To UBound(arr)

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

            k = k 1

          '將喜歡的水果放進(jìn)一維數(shù)組 s

            ReDim Preserve s(1 To k)

            s(k) = arr(i, 2)

        End If

    Next

    [f1] = Join(s, '/') '將數(shù)組連接起來(lái)，放到單元格

End Sub