Excel VBA-用可变范围公式填充空的数据库单元格

Question

我有一个数据库，该数据库在不同的单元格中包含“ N / A”，这是由于暂时的系统离线导致的。 我曾经使用图像显示的公式来填充这些“ N / A”：

如您所见，A列的基准是累积的，B和C也是累积的。“ N / A”通过散布第一个“ N / A”之前的最后一个读数与第一个“ N / A”之后的第一个读数之间的差来补偿。最后的“ N / A”

“ N / A”出现在不同的点并具有不同的长度。

也许有一个VBA代码可以帮助我一键完成整个数据库吗？ 谢谢您的帮助。

Answer 1

您可以尝试运行此VBA代码以根据上下数字对N/A值进行插值：

Sub FillNA()

Dim rng As Range, col As Range, a As Range
Set rng = Cells.SpecialCells(xlCellTypeConstants, xlTextValues)

For Each col In ActiveSheet.UsedRange.Columns    
    If Not Intersect(rng, col) Is Nothing Then
        For Each a In Intersect(rng, col).Areas
            If a(1) = "N/A" Then
                a(0).Resize(a.Count + 2).DataSeries Trend:=True
            End If
        Next a    
    End If
Next col

End Sub

（如果N/A出现在范围的开始或结束时，你将需要决定如何处理这种情况，并作适当调整）