Массивы

[SAS888]

Пусть массив чисел находится в 1-м столбце активного листа, начиная с ячейки "A1". Тогда, примерно так:

Sub test()
    Dim a As String, b As String, c As String, i As Long, x(), y
    x = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) 'исходный массив
    For i = 1 To UBound(x, 1)
        Select Case x(i, 1)
            Case Is < 0: a = a & " " & x(i, 1)
            Case Is = 0: b = b & " " & x(i, 1)
            Case Is > 0: c = c & " " & x(i, 1)
        End Select
    Next
    y = Split(Application.Trim(a & " " & b & " " & c), " ") 'результирующий массив
'Для наглядности, выведем полученный массив во 2-й столбец активного листа
    Range([B1], Cells(UBound(y) + 1, 2)).Value = Application.Transpose(y)
End Sub

Естественно, подставьте требуемый лист и столбец. Пример во вложении.