VBA数据处理的小项目应用--横项求有空值的均值

最新推荐文章于 2022-07-28 09:57:06 发布
最新推荐文章于 2022-07-28 09:57:06 发布
阅读量231 收藏
点赞数
分类专栏： Excel与VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Mikowoo007/article/details/88659603
版权

有几个数求几个数的平均值

在这里插入图片描述

Sub test()
    Dim avg As Variant
    For x = 1 To 8
        Select Case True
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value <> ""
                avg = (ThisWorkbook.Sheets(1).Cells(x, 2).Value + ThisWorkbook.Sheets(1).Cells(x, 3).Value) / 2
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value <> ""
                avg = (ThisWorkbook.Sheets(1).Cells(x, 1).Value + ThisWorkbook.Sheets(1).Cells(x, 3).Value) / 2
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value = ""
                avg = (ThisWorkbook.Sheets(1).Cells(x, 1).Value + ThisWorkbook.Sheets(1).Cells(x, 2).Value) / 2
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value <> ""
                avg = ThisWorkbook.Sheets(1).Cells(x, 3).Value
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value = ""
                avg = ThisWorkbook.Sheets(1).Cells(x, 1).Value
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value <> "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value = ""
                avg = ThisWorkbook.Sheets(1).Cells(x, 2).Value
                Debug.Print avg
            Case ThisWorkbook.Sheets(1).Cells(x, 1).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 2).Value = "" And ThisWorkbook.Sheets(1).Cells(x, 3).Value = ""
                avg = "没有数据"
                Debug.Print avg
            Case Else
                avg = (ThisWorkbook.Sheets(1).Cells(x, 1).Value + ThisWorkbook.Sheets(1).Cells(x, 2).Value + ThisWorkbook.Sheets(1).Cells(x, 3).Value) / 3
                Debug.Print avg
        End Select
    Next x
End Sub
Mikowoo007
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
vba 项目实践实例
12-27
这是我自己看了一些vba的资料很久以后，突然公司说需要做一个excel的智能表格，然后满公司找有没有会做的人，万幸的是她们找到了我，我接了下来，这是我学习vba一来亲自动手写的第一个较为复杂为有全面的项目，里面有各个阶段的代码和项目文件，大家可以一步一步的跟着做，做完了你就发现，其实vba简单的很，慢慢做什么功能都能写出来，只要领导敢有需求，我们就敢vba，哈哈希望对你有帮助！
ACCESS(VBA)上的一个小项目 —— 1、连接ACCESS数据库
weixin_30716725的博客
08-19 263
有人问我能不能做一个程序的时候，我第一反应都说“能”。 　　--这次在ACCESS中，借助TreeView和ListView做了一个数据联动的模型。 遇到的第一个问题就是连接ACCESS数据库。 1）从网上找了一段代码 1 Private Sub connectDB() 2 3 Dim cn As ADODB.Connection 4 Dim...
VBA--数据中有空值时求均值--模板
Mikowoo007的博客
03-27 648
excel数据中有空值 根据不同条件，求均值 Sub test() standard = Array(1, 2, 3, 4, 5) Dim result As Long, Count As Long, Sum As Long For r = 0 To 4 'For x = 2 To 18 Count = 0 Sum = 0 ...
excel vba计算平均数
sinat_25006091的博客
08-14 2288
Sub TEST() Dim i As Integer Range("d1:d255").Cut Range("b1:b255") Range("e1:e255").Cut Range("d1:d255") For i = 1 To 255 cells(6,i*3)="= round(average(range(b"&(i*3-2)&":b"&i*3&")",3) End Sub
VBA删掉某列中含有空值的行
tjhxrrr的博客
06-09 2657
Sub Del() num = ActiveSheet.UsedRange.Rows.Count() For i = 1 To num If Cells(i, 9) = "" Then Rows(i).Delete End If Next End Sub
EXCEL的各种“空”的区别：blank，““ ， 0 ，以及 VBA里的各种空值：empty，null，nothing 等
热门推荐
奔跑的犀牛先生
12-20 3万+
EXCEL的真正空值是 blank，只能用=isblank() 来判断 但是EXCEL里真正用到 blank的地方很少。大多数情况下只需要判断 if(A1="",) 即可。 另外EXCEL的内置函数一般不能返回空值， EXCEL文档这里不好编辑，我贴了我自己文档的图片如下 总结的结论如下 凡是为blank的地方，EXCEL也认为是可以被认为为""。反之不成立 就像文本型的数字，虽然类型是文本，但是可以直接当文本计算。也是反之不成立 函数无法返回真正的blank，但是可以返回"" 比如EXCEL的直接.
VBA专业项目实例开发
07-01
VBA专业项目实例开发, tif文件,很不错的东东.
未完成 VBA 关于 index() match() 查到表里空值的处理
奔跑的犀牛先生
02-21 968
Dim dict2 As Object Set dict2 = CreateObject("scripting.dictionary") Dim arr7() Dim arr8() Dim arr9() h0 = Application.Match("skillNum", Worksheets("PetExchange").Range("1:1"), 0) h1 = Application.Match(1, Worksh...
计算机vba函数,excel vba求平均值_求VBA编程或EXCEL公式(函数)
weixin_42348021的博客
07-28 1558
最佳答案=IF(AND(--SUBSTITUTE($C$2,MID($B4,1,1),"")=$C$2,--SUBSTITUTE($C$2,MID($B4,2,1),"")=$C$2),1,IF(AND(--SUBSTITUTE($C$2,MID($B4,1,1),"")<>$C$2,--SUBSTITUTE($C$2,MID($B4,2,1),"")<>$C$2),4,I...
在Excel中通过VBA实现不定区域的均值计算
weitingfu的博客
12-29 2826
需求：在excel中计算固定区域的均值有很多实现方式，但是对于跟随一定条件变化的区域，要求解均值却很难实现。 解决方案：通过VBA的程序，根据条件改变选定的单元格区域，实现不定区域的均值计算。 程序截图如下： 第一步，通过Dwb替代当前活动工作簿 第二步，通过Range（）函数设定可变化的单元格区域 Myrange1---代替range函数选定的区域，增加程序可读性； Dwb.Sheets(2).Cells(x - j - 3, y)----代表一个单元格， 其中Dwb代表工作..
ExcelVBA之某一区域平均值求解
soga235的博客
05-29 3391
1：求取A1：C15的平均值，虽然Excel命令可以多次平均直接解决，但本问题提供一种思路VBA来进行编程计算 2：代码 Private Sub Workbook_Open() For Each c In ThisWorkbook.Sheets("Sheet1").Range("A1:C15") TotalValue = TotalValue + c.Value Next AverageValue = TotalValue / (ThisWorkbook.Sheets("Sheet1").Range
VBA项目方面小技巧
yuanfang1992的博客
08-27 945
workbook 关闭并保存修改 workbook.close savechanges:=True  删除隐私检查 Workbook.RemovePersonalInformation = False 打印任意格式文件，只要支持windows右键打印 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecu...
vba项目实战（类模块、字典、集合、正则等）
qq_42678477的博客
07-04 1123
class UserForm1 Option Explicit Private Sub btnBillDir_Click() Me.txtBillDir.Text = GetFolder() End Sub Private Sub btnCiam_Click() Dim fileNameObj fileNameObj = Excel.Application.GetOpenFilename("Excel文件(.
实训项目1.3：VBA程序——动手编写VBA小程序
ywh980211的博客
05-06 2353
实训项目1.3：VBA程序实训目的：动手编写VBA程序1.让选定单元格居中的程序：2.让选定单元格左对齐的程序：3.让选定单元格右对齐的程序：4.选定单元格字体为粗体的程序：5.选定单元格字体为斜体的程序：6.返回选定区域的行数的程序：7.返回选定区域的列数的程序：...
VBA小实例程序
weixin_34126557的博客
02-17 313
2019独角兽企业重金招聘Python工程师标准>>> ...
VBA实训项目
Rain32
05-10 1228
实训项目2.1：常量、变量、变量作用域 实训目的：掌握常量、变量的命名规则，掌握如何声明常量与变量，掌握变量作用域 实训内容：定义字符变量Name、日期变量Birth、整型Age，变量赋值为John、14/03/1998，在立即窗口输出Rain32 is 21 years old。 以下是VBA代码： Public Sub abc() Dim name As String Dim ...
VBA 分割求平均值
oneorall的博客
02-28 1366
Function StrToArr(str As String, delimiter As String) As VariantDim ar, nar() If (Trim(str) = "") Then ReDim nar(0) StrToArr = nar GoTo EndR End Ifar = Split(str, delimiter)ReDim nar(UBound
1.Excel vba开发-处理空格数据
最新发布
qq_25064691的博客
07-28 1056
Excelvba开发-处理空格数据。
Excel使用VBA链接SQL全部实例
03-15
这个资源提供了在Excel中通过VBA连接SQL数据库并执行查询的实用技巧，适用于处理Excel工作簿内的数据筛选和外部数据的引用，便于数据分析和报表生成。无论是筛选条件的设置还是数据的呈现，都体现了VBA的强大功能和...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值