ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 227|回复: 6

[求助] 本人只能对结构相同的多表进行求和,在实际工作中却遇到了“列数相同但行数不同的...

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-1-12 10:19 | 显示全部楼层 |阅读模式
本人只能对结构相同的多表进行求和,在实际工作中却遇到了“列数相同但行数不同的多表求和”(见附件中的“主要元器件小计”需要批量求和),这个难题恳请各位老师热情相助。学生谢谢和拜托大家了!!

模拟清单.rar

31.64 KB, 下载次数: 13

TA的精华主题

TA的得分主题

发表于 2019-1-12 10:32 | 显示全部楼层
=SUMIF(B:B,"主要元器件小计",F:F)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-12 10:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-1-12 12:46 | 显示全部楼层
  Sub 求和()
   Range("A1").Select
   For L = 1 To Application.CountIf(Range("b:b"), "主要元器件小计")
        Cells.Find(What:="主要元器件小计", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
    sr = Range("A" & Right(ActiveCell.Address(0, 0), Len(ActiveCell.Address(0, 0)) - 1)).MergeArea.Address(0, 0)
    y = Mid(sr, InStr(sr, ":") + 2)
    x = Mid(sr, 2, InStr(sr, ":") - 2)
    Range("F" & y) = "=" & "Sum" & "(" & "F" & x & ":" & "F" & (y - 1) & ")"
   Next
  End Sub

TA的精华主题

TA的得分主题

发表于 2019-1-12 13:14 | 显示全部楼层
已经回复审核通过就可以看到,注意A列合并单元格的方式保持现在的统一性,那么就可以一直用,速度还行

TA的精华主题

TA的得分主题

发表于 2019-1-12 15:31 | 显示全部楼层
重新优化了一下,把代码写的更工整些.去掉了一些查找不必要带的参数. 若数据量太大,可以关闭屏幕刷新,那样速度要快很多.少的话就没必要

Sub 求和()
For L = 1 To Application.CountIf(Range("b:b"), "主要元器件小计")
  Cells.Find("主要元器件小计", After:=ActiveCell).Activate
  k = ActiveCell.Address(0, 0)
  sr = Range("A" & Right(k, Len(k) - 1)).MergeArea.Address(0, 0)
  y = Mid(sr, InStr(sr, ":") + 2)
  x = Mid(sr, 2, InStr(sr, ":") - 2)
  Range("F" & y) = "=" & "Sum" & "(F" & x & ":F" & (y - 1) & ")"
Next
End Sub


TA的精华主题

TA的得分主题

发表于 2019-1-12 17:41 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-3-19 06:39 , Processed in 0.086706 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表