تقوم الدالة VBA Join بتجميع قيم الصفيف في سلسلة أحرف ، باستخدام (أو لا) محددًا.
Join (text)
أو
Join (نص ، محدد)
دعونا نجمع عناصر المصفوفة للحصول على كل قيمها في سطر واحد ، والذي سيتم فصله بعلامة "/":
Sub JoinExample1()
array = Array("example", "test", 123, "xlp")
text = Join(array, "/")
MsgBox text 'العوائد: exampletbl _ / _ tbltest / 123 / xlp
End Sub
إذا لم تحدد محددًا ، فسيتم فصل القيم افتراضيًا بمسافة:
Sub JoinExample2()
array = Array("example", "test", 123, "xlp")
text = Join(array)
MsgBox text 'العوائد: example test 123 xlp
End Sub