发布网友 发布时间:2022-04-27 07:30
共5个回答
热心网友 时间:2022-06-28 13:42
右击你的表格标签——查看代码,粘贴下面的代码:
Sub SumAvg()
'D列中显示C列的“和/平均数”,平均数取整
Dim nR As Long
Dim i As Long, N As Integer, intSum As Integer, intAvg As Integer
nR = Range("C65535").End(xlUp).Row 'C列最后一个数字所在的行
i = 2 '假设有一行标题,数据从第二行开始
Do While i < nR
N = Range("D" & i).MergeArea.Rows.Count
intSum = CInt(Application.WorksheetFunction.Sum(Range("C" & i & ":C" & i + N - 1)))
intAvg = CInt(Application.WorksheetFunction.Average(Range("C" & i & ":C" & i + N - 1)))
Range("D" & i).NumberFormatLocal = "@" '设置为文本格式
Cells(i, 4).Value = intSum & "/" & intAvg
i = i + N
Loop
End Sub
示例:
热心网友 时间:2022-06-28 13:42
=SUM(A1:A2) & "/" & AVERAGE(A1:A2)热心网友 时间:2022-06-28 13:43
如果只根据数据来计算,那真只能求个和,ctrl+enter输入
热心网友 时间:2022-06-28 13:43
Excel批量合并单元格填写公式引用对应的单元格
热心网友 时间:2022-06-28 13:44
数据记录规范是后期对数据进行统计和分析的前提,否则是自己给自己找麻烦。行数不确定那公式就没有通用性,写公式意义就不大。