Есть массив
Dim MyByte(100) As Byte
Как можно его содержимое соединить в строку с разделителем "."?
MsgBox Join(MyByte,".")
Function myJoin(srcArray() As Byte, Optional delimiter As String = " ") As String
Dim i As Long
myJoin = srcArray(LBound(srcArray))
For i = LBound(srcArray) + 1 To UBound(srcArray)
myJoin = myJoin & delimiter & srcArray(i)
Next
End Function
Сейчас этот форум просматривают: AhrefsBot и гости: 1