全球主机交流论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

CeraNetworks网络延迟测速工具IP归属甄别会员请立即修改密码
查看: 684|回复: 8

EXCEL 求教

[复制链接]
发表于 2023-9-21 18:59:03 | 显示全部楼层 |阅读模式


有没有公式可以批量生成计算输出列C
发表于 2023-9-21 19:01:48 | 显示全部楼层
问GPT                        
发表于 2023-9-21 19:02:56 | 显示全部楼层
这个应该叫分类汇总吧
发表于 2023-9-21 19:08:35 | 显示全部楼层
本帖最后由 teardrops 于 2023-9-21 20:33 编辑

本以为可以sum 一拉到底


  还是vba吧...
抛砖引玉


用法
1.创建一个xlsm (可以运行宏)
2.alt+f11 插入模块
3.ctrl+v
4.在合并的单元格里面填写  =MJJ_SUM(b100)

  1. Function MJJ_SUM(ByVal sum_cell As Range, Optional ByVal mjj_cell As Range, Optional ByVal is_by_col As Integer = 1)
  2.     Dim thisCell As Range, new_area As Range, first_cell As Range, cells_count As Integer
  3.     Dim sr As Long, sc As Long, fr As Long, fc As Long
  4.    
  5.     If Not mjj_cell Is Nothing Then
  6.         Set thisCell = mjj_cell
  7.     Else
  8.         Set thisCell = Application.thisCell
  9.     End If
  10.    
  11.     Set first_cell = thisCell.MergeArea.Cells(1, 1)
  12.     sr = sum_cell.Row
  13.     sc = sum_cell.Column
  14.     fr = first_cell.Row
  15.     fc = first_cell.Column
  16.    
  17.     If thisCell.MergeCells Then
  18.         If is_by_col = 0 Then
  19.             cells_count = thisCell.MergeArea.Columns.Count - 1
  20.             Set new_area = Range(Cells(sr, fc), Cells(sr, fc + cells_count))
  21.         Else
  22.             cells_count = thisCell.MergeArea.Rows.Count - 1
  23.             Set new_area = Range(Cells(fr, sc), Cells(fr + cells_count, sc))
  24.         End If
  25.         MJJ_SUM = Application.WorksheetFunction.Sum(new_area)
  26.     Else
  27.         MJJ_SUM = sum_cell
  28.     End If
  29. End Function
复制代码
发表于 2023-9-21 19:17:18 | 显示全部楼层
列C为什么会合并
发表于 2023-9-21 19:18:13 来自手机 | 显示全部楼层
不能另外加个透视表吗
发表于 2023-9-21 19:20:18 | 显示全部楼层
Excel公式编辑器
https://chat.baidu.com/bot?appId=1fc1b2278f364d93a0d585fe604bbbe9
发表于 2023-9-21 19:23:24 | 显示全部楼层
本帖最后由 aceboy 于 2023-9-21 19:25 编辑

SUMIF函数对指定范围内符合条件的数进行条件求和。
然后复制到新列,数据去重复。或者先将人名去重复,然后sumif。
合并单元格没有必要吧。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|全球主机交流论坛

GMT+8, 2026-2-21 08:17 , Processed in 0.086730 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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