复杂的多表汇总(难度有点大,做出来有分加哦)

泓()

原帖由 wenwen000424 于 2010-1-22 19:04 发表

对于hupanshan 来说的确不难，期待出手．要通用就把汇总表当作空白工作表，表头与Ａ，Ｂ两列通过分表对应行列获取非重复值．

汇总表若是空白工作表  表头与Ａ，Ｂ两列通过分表对应行列获取非重复值   ---这个只要从现在代码的基础上再深入，也不是那么遥远的！

一开始 我觉得这题有点繁 要是我偿未掌握字典 还不知道怎么去应对

我想彭版此题的初衷 要是用SQL去解决的  他在前段时间出台过相关的SQL精典教学与应用实例
结果 没有一个朋友能用SQL解决的
有点困惑： 彭版为什么 还未公开他的代码

[ 本帖最后由 泓() 于 2010-1-22 20:47 编辑 ]

彭希仁

原帖由 泓() 于 2010-1-22 20:33 发表


汇总表若是空白工作表  表头与Ａ，Ｂ两列通过分表对应行列获取非重复值   ---这个只要从现在代码的基础上再深入，也不是那么遥远的！

一开始 我觉得这题有点繁 要是我偿未掌握字典 还不知道用什么方法去恰当解 ...

如果我给出答案和方向会引导大家进入死角,........那样就没有创新了

sunshn

原帖由 ccwan 于 2010-1-21 08:34 发表
Const r = 4
'定义常量r=4，因为所有的行列都从4开始，这是为了程序的可读性，否则一直加3、加4不好理解
Sub cc()
Application.ScreenUpdating = False
'停止屏幕更新
Range(Cells(2, 2), Cells(2, 100)).Replace "Z", "V"
'将表格中第一行里的"Z"换成"V"

代码拜读了，提2个建议：
1、注释语句放在上一行或者本行代码后；
2、代码按层次缩进。

[ 本帖最后由 sunshn 于 2010-1-22 22:38 编辑 ]

p123456789

如果能用公式解决，甚至加以辅助操作，也许在平时的实际操作中更有效果。毕竟有时候，真正做工作的人对VBA还是让很多人不习惯。甚至害怕。

ccwan

原帖由 sunshn 于 2010-1-22 22:07 发表


代码拜读了，提2个建议：
1、注释语句放在上一行或者本行代码后；
2、代码按层次缩进。

多谢提意见。开始是将注释写在代码后的，因为太长了，影响阅读，就回车把注释放到下面了。

wenwen000424

原帖由 泓() 于 2010-1-22 20:33 发表


汇总表若是空白工作表  表头与Ａ，Ｂ两列通过分表对应行列获取非重复值   ---这个只要从现在代码的基础上再深入，也不是那么遥远的！

一开始 我觉得这题有点繁 要是我偿未掌握字典 还不知道怎么去应对

我 ...

马上将深入部分完成,你就是第一人.版主肯定给你加分.

zhang_yugang

好帖，今天收获不少，谢谢大家啊！

alzeng

“通用性”这个标准很模糊，比方说最后一列与最后一行的求和，不见得每个表都会如此设置，你的求和区域就很难去判定。
就这个贴子的回复语气及难度系数而言，不像是彭版的风格……

彭希仁

原帖由 alzeng 于 2010-1-23 09:43 发表
“通用性”这个标准很模糊，比方说最后一列与最后一行的求和，不见得每个表都会如此设置，你的求和区域就很难去判定。
就这个贴子的回复语气及难度系数而言，不像是彭版的风格……

这题的有两个意义
一、是送点分，现在竟赛那边没有分捞了，总得让大家增收吧。
二、引导大家开发插件的思路。这是最难的。要写成通用插件要走的路还很远，各件乱七八糟的情况都要想办法去解决，如在没有“汇总表”的情况下该怎么做？“汇总表”中如果少了对应机型该怎么样？行列要排序之后再汇总，再合并单元格又该如何？

alzeng

所以彭版所说的“通用性”是非常含混的，可以作多样理解。用模糊的标准去界定一个所谓“通用的程序”，我想是不可能的。
比方说彭版自己写出来一个程序，也尽量考虑了多种异常情形，但别人也绝对能列举出你的代码不能包容的情况。
这样的话，“通用性”就是个空的标志。——以彭版的资质，不可能弄出这样一个让人不明就里的标准来。由此我怀疑这个贴子中的一部分回复是别人代劳彭版的，^_^