функции Excel завалить Клетки

Question

Рассмотрим следующие данные о первенствует (которые вы должны создать в Excel): Числа

0.2 
0.2 
3.4 

1.5 
1.8 

4.2 

Написать функцию VBA, которая сканирует через выбор, находит пустые места, а затем т заполняет их числовым значением, которое передается через подпись функции. Выход: Числа

0.2 
0.2 
3.4 
0 
1.5 
1.8 
0.0 
4.2 

Привет всем, У меня есть вопрос выше.

Мне было интересно, может ли кто-нибудь посмотреть мой код и сообщить мне, что случилось с моим кодом.

Public Function MyFill(thisRange As Range) 
Dim x As Range 
Set x = thisRange 
ReDim Y(x.Length) 
Dim i As Integer 
For Each x In thisRange 
    If (x.Value = Empty) Then 
     Y(i) = 0 
     i = i + 1 
    End If 
    Y(i) = x.Value 
Next x 
MyFill = Y 
End Function 

Answer 1

Public Function MyFill(thisRange As Range) 
Dim X As Range 
Set X = thisRange 
MyFill = X 
End Function 

Видимо, ответ я искал гораздо проще, чем я думал.