怎么用VBA弄个可以隔列计算平均分计算器的宏啊？

来源：蜘蛛抓取(WebSpider) 时间：2017-11-02 02:47 标签： 平均分计算
用VBA计算EXCEL中的行数和列数
每种方法中上面的是Excel的行数，下面的是Excel的列数。
ActiveSheet.UsedRange.Rows.Count&
ActiveSheet.UsedRange.Columns.Count
缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。
ActiveSheet.Range("A65535").End(xlUp).Row
ActiveSheet.Range("IV1").End(xlToLeft).Column
可以简写为：
ActiveSheet.[A65536].End(xlUp).Row
ActiveSheet.[IV1].End(xlToLeft).Column
缺点：只能计算出一列（行）的最后一个单元格所在的行（列）数。本例是只返回A列最后一个单元格所占的行数。
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
Application.CountA(ActiveSheet.Range("A:A"))
Application.CountA(ActiveSheet.Range("1:1"))
只能统计一列（行）的实际使用情况，得到的不一定是最后一行（列）的位置。方法2的数值比此方法大时，说明在A列的数据间有空白未填写的单元格。
ActiveSheet.Cells.Find(What:="*", After:=[A1],
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ActiveSheet.Cells.Find(What:="*", After:=[A1],
SearchOrder:=xlByColumns,
SearchDirection:=xlPrevious).Column
效果同方法2
以上方法中比较常用的是方法1和方法2。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 577|回复: 6
如何隔列显示字符组合的字符，生成VBA，答案在6楼
阅读权限20
在线时间 小时
本帖最后由 zhuang0598 于
14:46 编辑
(1.09 MB, 下载次数: 3)
11:06 上传
点击文件名下载附件
44.JPG (1.44 MB, 下载次数: 0)
11:07 上传
数字比较多，想生成VBA直接点一下，减少出错。
阅读权限95
在线时间 小时
本帖最后由 wj2368 于
12:46 编辑
...................................
12:46 上传
点击文件名下载附件
1001.33 KB, 下载次数: 3
阅读权限20
在线时间 小时
...................................
感谢帮助，可能是我描述错了。在入库表里DU2:HP301的值如表UD2=IF(BW2=&&,&&,$A2&& &&$B2&$D2&BW2),dv2=IF(Y2=&&,&&,$X$1&$A2&$W2&$X2&Y2&Y$1),
表上的UD2,和DV2就是我想要得到的值，
阅读权限95
在线时间 小时
感谢帮助，可能是我描述错了。在入库表里DU2:HP301的值如表UD2=IF(BW2=&&,&&,$A2&& &&$B2&$D2&BW2),dv2=I ...
？？？？？？？？？？？？
阅读权限20
在线时间 小时
？？？？？？？？？？？？
感谢帮助，上面的值就是我想要的，怎么用VBA直接得到。
(1.09 MB, 下载次数: 1)
13:45 上传
点击文件名下载附件
阅读权限95
在线时间 小时
本帖最后由 wj2368 于
14:33 编辑
感谢帮助，上面的值就是我想要的，怎么用VBA直接得到。
.......................
14:32 上传
点击文件名下载附件
994.89 KB, 下载次数: 5
阅读权限20
在线时间 小时
& & & & & & & &
.......................
感谢帮助。这是我想要的。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 平均分计算 的文章

 

随机推荐