当年龄单位为“月”或“天”时，怎样用数组代码计算平均年龄?

gwfzh · 发表于 2013-6-3 11:02

各位老师：

当i列年龄单位为“月”或“天”时，怎样用数组代码计算i列值的平均年龄?请各样老师帮忙了！

怎样用数组代码计算i列值的平均年龄.zip (30.31 KB, 下载次数: 5)

lyf7276 · 发表于 2013-6-3 11:13

你是要根据H列算平均还是根据I列算平均呀？根据I列算，你直接一个函数就做了呀

lyf7276 · 发表于 2013-6-3 11:27

是要算出这样的结果吗？

gwfzh · 发表于 2013-8-6 18:07

本帖最后由 gwfzh 于 2013-8-6 18:23 编辑

怎样用代码计算i列的平均年龄?并求出最大年龄23岁，最小年龄为3天？

在程序“Macro3()”中，通过循环下面的语句代码（见红色字处）怎么没有累加？像“&”一样变成了各个元素的合并值？

TOLy = TOLy + agy(i)

是什么原因，请各位老师帮忙了！！

怎样用数组代码计算i列值的平均年龄.zip (42.2 KB, 下载次数: 2)

2013-8-6 18:07 上传

点击文件名下载附件

Sub Macro3() '统计平均年龄
' Macro3 Macro
' 宏由微软用户录制，时间: 2011-11-6
'Sheets("sheet总表").Range("b3:b" & r).Offset(, k - 2).Copy .Range("b3:b" & r)
Dim i, j, m, y, d, cellValue, cellValuem, cellValued As Integer, avg, age(), agy(), agm(), agd() ', cellValue()
a = Range("i2:i" & Range("c65536").End(xlUp).Row)
'A = Range("j1:j" & Range("c65536").End(xlUp).Row)
ii = Range("A" & Cells.Rows.Count).End(xlUp).Row
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row          '最后一行
nLC = ActiveSheet.Cells.SpecialCells(xlLastCell).Column    '最后一列
ReDim nhc(1 To ii, 1), nrc(1 To ii, 1), nri(1 To ii, 1), ag(1 To ii), agy(1 To ii), agm(1 To ii), agd(1 To ii) ', TOLy(0 To ii) ', cellValue(1 To ii)
nhc = Range("h2:h" & ii + 1).Value
nrc = Range("r2:r" & ii + 1).Value
'nri = Range("i2:i" & ii + 1).Value
'Sheets("Sheet2").Range("I" & ii + 1).Resize(nLR, nLC).ClearContents  '清空原统计数据，免再次重复统计,Clear  (不清除格式,就是 .clearcontents)
' Range("J2:J115").Select
For i = 1 To UBound(a)
      'age(i) = nrc(i, 1) - nhc(i, 1)
      ag(i) = Right(a(i, 1), 1)                '取年龄单位
If ag(i) <> "" Then
      If (ag(i) = "月") Then
         cellValuem = Replace(a(i, 1), "月", "") '替换年龄单位“月”
         agm(i) = cellValuem / 12
         TOLm = TOLm + agm(i)
         m = m + 1 '如果年龄单位为"月"或"天"，则取年龄为0
      Else
         If (ag(i) = "天") Then
            cellValued = Replace(a(i, 1), "天", "") '替换年龄单位“天”
            agd(i) = cellValued / 365
            TOLd = TOLd + agd(i)
            d = d + 1 '如果年龄单位为"月"或"天"，则取年龄为0
         Else
            cellValue = Replace(a(i, 1), "岁", "") '替换年龄单位“岁”
            agy(i) = cellValue
              TOLy = TOLy + agy(i)       '怎么没有累加？像“&”一样变成了各个元素的合并值？＝‘"1212212322113122371333312113113121131221131224132115141。。。。。。。。。。？
            y = y + 1
         End If
      End If
      End If
Next i
'tol = Application.sun(agy)
Sheets("Report").Range("h" & ii + 1).Resize(nLR, nLC).ClearContents  '清空原统计数据，免再次重复统计,Clear  (不清除格式,就是 .clearcontents)
Range("i2:i" & ii).Select
Range("i2:i" & Range("c65536").End(xlUp).Row).Copy
Sheets("Report").Range("j" & ii + 2).Select
ActiveSheet.Paste
Selection.Replace What:="岁", Replacement:=" ", LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                  ReplaceFormat:=False
Selection.NumberFormatLocal = "0_);[红色](0)"
Range("l" & ii + 2).Select
Application.CutCopyMode = False
enro = Range("j" & Cells.Rows.Count).End(xlUp).Row  'AVERAGE(B" & r & ":B" & t & "))/STDEV.S(B" & r & ":B" & t & "))"
ActiveCell.FormulaR1C1 = "=AVERAGE(j" & ii + 2 & ":j" & enro & ")" 'activecell.formular1c1 所表示的意思是当前单元格的公式是等号后面的用旨引号括起来的部分
Sheets("Report").Range("k" & ii + 2) = "=AVERAGE(j" & ii + 2 & ":j" & enro & ")"
avg = Application.Average(Range(Cells(ii + 2, 10), Cells(enro, 10))) '这个是动态求平均数，即用for循环可以求不同行的平均数。
Range("m" & ii + 2).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & ii - 2 & "]C[-3]:RC[-3])" 'R和C分别代表行和列,[]中的数字代表偏移量.,具体理解和函数中的offset类似
Sheets("Sheet1").Range("ck2") = Application.Max(Range(Cells(ii + 2, 10), Cells(enro, 10)))
Sheets("Sheet1").Range("cl2") = Application.Min(Range(Cells(ii + 2, 10), Cells(enro, 10)))
Sheets("Sheet1").Range("cm2") = avg
'ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & ii - 2 & "]C[-3]:RC[-3])" 'R和C分别代表行和列,[]中的数字代表偏移量.,具体理解和函数中的offset类似
ActiveWindow.SmallScroll Down:=-12
End Sub

		自动登录	找回密码
密码			注册

当年龄单位为“月”或“天”时，怎样用数组代码计算平均年龄?

相关帖子