Question

考虑以下有关Excel的数据：

1|0.2
2|0.2
3|3.4
4|
5|1.5
6|1.8
7|
8|4.2

编写一个VBA函数，扫描选择，找到空白点，然后是t 用一个数值填充它们，该数值通过函数的签名传递。输出：编号

1|0.2
2|0.2
3|3.4
4|0
5|1.5
6|1.8
7|0.0
8|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

显然，我所寻找的答案比我想象的要简单得多。

Excel功能填充单元格

1 个答案: