Проверьте прогу!

[SanSanblch]

Option Base 1

Function dasha111(diap)
m = diap.Rows.Count
n = diap.Columns.Count
Dim out_diap()
ReDim out_diap(m * n)

For i = 1 To m

For j = 1 To n

If diap(i, j) <> "" Then
For C = 1 To m * n
out_diap(C) = diap(i, j)
Next C
End If

Next j

Next i
dasha111 = out_diap
End Function

НУжно из выбранного даапозонна скопировать в одномерный массив все не пустые символы!

[IgorGO]

осмелюсь предположить что надо было так:
Function dasha111(diap)
m = diap.Rows.Count
n = diap.Columns.Count
Dim out_diap()
ReDim out_diap(m * n)

For i = 1 To m

For j = 1 To n


For C = 1 To m * n
If diap(i, j) <> "" Then out_diap(C) = diap(i, j)
Next C
End If

Next j

Next i
dasha111 = out_diap
End Function

и еще: вам будут щаче отвечать, если в конце просьбы ставить не восклицательный знак, а слово "пожалуйста".

[EducatedFool]

Можно чуть попроще:

Function dasha111(ByRef diap As Range)
    ReDim out_diap(1 To diap.SpecialCells(2).Count): i = 1
    For Each cell In diap.SpecialCells(2)
        out_diap(i) = cell: i = i + 1
    Next cell
    dasha111 = out_diap
End Function

[SanSanblch]

Спасибо!!!!!
Всё учту =)