fonction Excel Fill Up cellules

Question

Considérez les données suivantes sur Excel (que vous devez créer dans Excel): Nombres

0.2 
0.2 
3.4 

1.5 
1.8 

4.2 

Ecrire une fonction VBA qui scanne à travers la sélection, trouve les espaces vides et puis t les remplit avec une valeur numérique qui passe par la signature de la fonction. Sortie: numéros

0.2 
0.2 
3.4 
0 
1.5 
1.8 
0.0 
4.2 

Salut tout le monde, j'ai une question ci-dessus. Je me demandais si quelqu'un peut regarder mon code et me dire ce qui ne va pas avec mon code. Apparemment, la réponse que je cherchais est beaucoup plus simple que ce que je pensais

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 

.