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 

どうやら私が探していた答えは、私が思ったよりもはるかに簡単です。