发布网友 发布时间:2022-05-03 08:49
共2个回答
热心网友 时间:2023-10-17 11:53
=SUM(--(0&TRIM(MID(SUBSTITUTE(A11,"、",REPT(" ",99)),ROW($1:$9)*99-98,99))))/(LEN(A11)-LEN(SUBSTITUTE(A11,"、",))+1)
数组公式,Ctrl+Shift+Enter三键回车
热心网友 时间:2023-10-17 11:53
用代码完
Sub 平均值()
Dim I%
For I = 2 To Range("A65536").End(xlUp).Row
Cells(I, 2) = Cells(I, 1)
Cells(I, 2).Replace What:="、", replacement:=","
Cells(I, 2) = "=Average(" & Cells(I, 2) & ")"
Next
End Sub
热心网友 时间:2023-10-17 11:53
=SUM(--(0&TRIM(MID(SUBSTITUTE(A11,"、",REPT(" ",99)),ROW($1:$9)*99-98,99))))/(LEN(A11)-LEN(SUBSTITUTE(A11,"、",))+1)
数组公式,Ctrl+Shift+Enter三键回车
热心网友 时间:2023-10-17 11:53
用代码完
Sub 平均值()
Dim I%
For I = 2 To Range("A65536").End(xlUp).Row
Cells(I, 2) = Cells(I, 1)
Cells(I, 2).Replace What:="、", replacement:=","
Cells(I, 2) = "=Average(" & Cells(I, 2) & ")"
Next
End Sub