Question

excel 的VBA编程问题。我想把选中范围内的空白单元格自动填充为同一列的上一行和下一行的平均值

第一列0.50000 0.99974 0.49996 0.12500 0.02083

第三列0.60000 0.99935 0.59987 0.17998 0.03600
自动在第二列填充
0.55000 0.99955 0.54992 0.15249 0.02842
如何用vba实现？
可能是ActiveCell.FormulaR1C1 = "=0.5*(R[-1]C+R[1]C)"，
接下来我就不会，求高人指点，在线等，谢谢了
抱歉我已经自己找出来了。知道怎么弄了，这么半天居然没人回答，唉

Answer 1

Sub ASASAS()
Dim Lon As Worksheet
Dim k As Integer
Set Lon = Worksheets("SHEET1")'你的表名称
For k = 1 To 30
If Lon.Cells(1, k) > 0.00000000001 And Lon.Cells(3, k) > 0.0000000001 Then
Lon.Cells(2, k) = (Lon.Cells(1, k) + Lon.Cells(3, k)) / 2
End If
Next
End Sub

A 为第1列
C 为第3列

结果在B列

Answer 2

呵呵 这个要经常用才会的啊 没接触过 爱莫能助啊！