vba练习-while循环

时间：2018-12-03 15:38:06 阅读：776 评论：0 收藏：0 [点我收藏+]

标签：cells sub sha cell com 统计 RoCE 输入 oss

统计所有学生的平均成绩，当A列继续输入时，仍能统计。
Sub 统计()
Dim i, total, count
total = 0
count = 0
i = 2
Do While Cells(i, 1) <> ""
total = total + Cells(i, 2)
count = count + 1
i = i + 1
Loop
If count > 0 Then
Cells(3, 3).Value = total / count
End If
End Sub

vba练习-while循环

标签：cells sub sha cell com 统计 RoCE 输入 oss

原文地址：http://blog.51cto.com/11729955/2325322

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

Spring Cloud 从入门到精通（一）Nacos 服务中心初探 2021-07-29
基础的排序算法 2021-07-29
SpringBoot|常用配置介绍 2021-07-29
关于 .NET 与 JAVA 在 JIT 编译上的一些差异 2021-07-29
C语言常用函数-toupper()将字符转换为大写英文字母函数 2021-07-29
《手把手教你》系列技巧篇（十）-java+ selenium自动化测试-元素定位大法之By class name（详细教程） 2021-07-28
4-1 YAML配置文件注入 JavaBean中 2021-07-28
【python】用来将对象持久化的 pickle 模块 2021-07-28
马拉车算法 2021-07-28
用Python进行冒泡排序 2021-07-28