在 ThisWorkbook 的代码窗口粘贴下列代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
r = Target.Row
c = Target.Column
If c = 4 Then
Cells(r, 5) = (Cells(r, c - 1) + Cells(r, c)) / 2
End If
End Sub
这个问题没必要使用VBA呀!
D2写公式:
=AVERAGE(b2:c2)
下拖复制即可!!!
右键单击表标签,弹出菜单中选“查看代码”,然后见下列代码粘贴到打开的窗口即可:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Cells(Target.Row, 4) = WorksheetFunction.Average(Range(Cells(Target.Row, 2), Cells(Target.Row, 3)))
On Error GoTo 0
End Sub
我是想问有没公式会自动返回前面非空格的均值呢”有下面一句
[a65536].End(xlUp).Row + 1-----这是2003版
[a1048576].End(xlUp).Row + 1-----这是2007版
最后单元格往向查找到有数据行自动加1行也就是自动返回非空格
这个很简单啊,加入判断