在空值处按上下单元格，进行等差序列填充。

gxnnrqp

数据有大量空值，希望能将空值依照上下有数值的单元格，进行等差填充。
拜托各位大神了！

gxnnrqp

哪位靓仔帮帮忙啊

我走我流

=IF(A1<>"",A1,LOOKUP(9^9,A$1:A1)-(LOOKUP(9^9,A$1:A1)-OFFSET(A1,MATCH(,0/(A1:A99<>""),)-1,))/(ROW()-1+MATCH(,0/(A1:A99<>""),)-LOOKUP(9^9,A$1:A1,ROW($1:1)))*(ROW()-LOOKUP(9^9,A$1:A1,ROW($1:1))))
  数组下拉，仅供参考

sishuiren

两种方法参考
一是填充序列的方法
二是代码的方法

1. Sub test1()
   
2.     Dim arr1, LastRow&, x%, Rg As Range
   
3.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     On Error Resume Next
   
5.    
   
6.     For x = LastRow To 1 Step -1
   
7.         If Range("a" & x) <> "" And Range("a" & x - 1) = "" Then
   
8.             Set Rg = Range("a" & x)
   
9.         End If
   
10.         If Range("a" & x) = "" Then
    
11.             Set Rg = Union(Rg, Range("a" & x))
    
12.         End If
    
13.         If Range("a" & x) <> "" And Range("a" & x + 1) = "" Then
    
14.             Set Rg = Union(Rg, Range("a" & x))
    
15.             Rg.Select
    
16.             Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
    
17.             Trend:=True
    
18.       End If
    
19.     Next x
    
20. End Sub

复制代码