excel 的VBA编程问题。我想把选中范围内的空白单元格自动填充为同一列的上一行和下一行的平均值
第一列0.500000.999740.499960.125000.02083第三列0.600000.999350.599870.179980.03600自动在第二列填充0...
第一列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)",
接下来我就不会,求高人指点,在线等,谢谢了
抱歉我已经自己找出来了。知道怎么弄了,这么半天居然没人回答,唉 展开
第三列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)",
接下来我就不会,求高人指点,在线等,谢谢了
抱歉我已经自己找出来了。知道怎么弄了,这么半天居然没人回答,唉 展开
2个回答
展开全部
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列
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列
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询