双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

多列汇总,不知道怎么写,大家进来帮我看看啊

2010-06-09 08:37:08 144 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

jin20000 墨衍会员 · AI 创作全网分发关注 + 加入社区

Excel VBA多文件同名表多列数据汇总在数据处理中，批量合并多个Excel工作簿是高频需求，尤其当各文件包含同名工作表和结构化数据时，人工复制粘贴不仅耗时且易错。Excel VBA作为内置的宏脚本语言，无需额外环境，即可通过Dir函数遍历文件、Workbooks.Open读取工作簿、Range.Value批量取数，实现多文件同名表多列数据的自动汇总。该方案适合文件数量几十个、数据量中等的日常报表合并场景，几分钟即可完成手动半小时的工作，提升数据处理的准确性与可追溯性。本文从VBA核心概念出发，给出完整代码与运行排错方法，帮助工程人员快速落地自动阅读详情

有表a,有如下列



id  bm    lx     lx1cs  lx2cs  lx3cs  lx4cs

1    1   lx1       0      0      0      0

2    1   lx1       1      0      0      0

3    2   lx2       0      0      0      0

4    2   lx2       0      1      0      0

5    2   lx3       0      0      0      0

6    2   lx3       0      0      1      0

7    2   lx4       0      0      0      0

8    2   lx4       0      0      0      1

9    2   lx1       1      0      0      0

10    1   lx2       0      0      0      0

11    1   lx3       0      0      1      0

12    1   lx4       0      0      0      1

13   1    lx1       0      0      0      0

想要得到按bm,lx,分组得到对应类型的,如lx是lx1,则看lx1cs值是否为1,为1则累计1条
如下结果



bm  lx  count

1   lx1    2

1   lx2    0

1   lx3    1

1   lx4    1

2   lx1    1

2   lx2    1

2   lx3    1

2   lx4    1

...全文

用Excel VBA实现多文件同名表多列批量汇总的实战指南 Excel多文件数据处理是企业日常办公中的常见场景，尤其当几十个工作簿内都包含同名工作表时，如何高效汇总多列数据成为效率瓶颈。VBA作为Office内置的宏语言，无需额外安装插件，即可通过遍历文件夹、定位同名表、按列名匹配等机制，自动完成批量合并。其核心原理在于利用Dir函数循环打开工作簿，结合动态行号判断与区域复制，从而规避手动操作易出现的漏行、错列问题。这种自动化方案适用于报表合并、销售数据汇总、库存清单整合等重复性任务，并能通过添加来源文件字段和错误日志提升数据可追溯性。在实际工程落地中，需注意源表结阅读详情

jin20000

基础和管理 17,379 成员 95,111 内容

+ 关注 + 加入社区

切换为时间正序

jin20000 2010-06-15

打赏
举报

[Quote=引用 5 楼 tangren 的回复:]

SQL code
SQL> --如果lx不固定,可能要使用存储过程来拼接动态SQL来执行
SQL> with a as (
2 select 1 id,1 bm, 'lx1' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all
3 select 2 id,1 bm, 'lx1' lx, 1 lx1cs,0 ……
[/Quote]
tangren,lx不止0和1两种状态呢

tangren 2010-06-10

打赏
举报

SQL> --如果lx不固定,可能要使用存储过程来拼接动态SQL来执行

SQL> with a as (

  2    select 1  id,1 bm, 'lx1' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  3    select 2  id,1 bm, 'lx1' lx, 1 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  4    select 3  id,2 bm, 'lx2' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  5    select 4  id,2 bm, 'lx2' lx, 0 lx1cs,1 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  6    select 5  id,2 bm, 'lx3' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  7    select 6  id,2 bm, 'lx3' lx, 0 lx1cs,0 lx2cs, 1 lx3cs, 0 lx4cs from dual union all

  8    select 7  id,2 bm, 'lx4' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

  9    select 8  id,2 bm, 'lx4' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 1 lx4cs from dual union all

 10    select 9  id,2 bm, 'lx1' lx, 1 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

 11    select 10 id,1 bm, 'lx2' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual union all

 12    select 11 id,1 bm, 'lx3' lx, 0 lx1cs,0 lx2cs, 1 lx3cs, 0 lx4cs from dual union all

 13    select 12 id,1 bm, 'lx4' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 1 lx4cs from dual union all

 14    select 13 id,1 bm, 'lx1' lx, 0 lx1cs,0 lx2cs, 0 lx3cs, 0 lx4cs from dual)

 15  SELECT bm,

 16         lx,

 17         CASE

 18           WHEN lx = 'lx1' THEN

 19            SUM(lx1cs)

 20           WHEN lx = 'lx2' THEN

 21            SUM(lx2cs)

 22           WHEN lx = 'lx3' THEN

 23            SUM(lx3cs)

 24           WHEN lx = 'lx4' THEN

 25            SUM(lx4cs)

 26         END cnt

 27    FROM a

 28   GROUP BY bm, lx;



        BM LX         CNT

---------- --- ----------

         1 lx1          1

         2 lx4          1

         2 lx2          1

         2 lx1          1

         1 lx2          0

         2 lx3          1

         1 lx4          1

         1 lx3          1



已选择8行。



SQL>

minoboy 2010-06-10

打赏
举报

楼上还没有理解题意啊

header230 2010-06-10

打赏
举报

select bm ,lx ,count(*) from table_Name
where lx1cs = 1 and lx = 'lx1'
group by bm,lx

需要那么复杂吗，这个语句没有测试过，基本思路就是这样的。

jessica0403 2010-06-10

打赏
举报

lx里面的值是否有重复？

minoboy 2010-06-09

打赏
举报

select bm,lx,sum(cnt) from
(select
bm, lx,case when lx=lx1 then lx1cs
when lx=lx2 then lx2cs
when lx=lx3 then lx3cs
when lx=lx4 then lx4cs else 0 end cnt from 表A) 表B

group by bm,lx

jin20000 2010-06-09

打赏
举报

难道都这么早就睡了?
来人啦,各位大虾帮帮我啊

jin20000 2010-06-09

打赏
举报

哎,怎么没人呀

jin20000 2010-06-09

打赏
举报

感觉是多行多列转成一列

✦双11狂欢大促✦

多列汇总,不知道怎么写,大家进来帮我看看啊

相关推荐

双11狂欢大促