ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2656|回复: 8

[Word 应用与开发] [第15期]多表格排序[已总结]

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-9-5 11:46 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

要求:

把附件(准备以附件形式)的内容,按序排列。

(附件的内容模拟没有按顺序输入的各届学生名单)

即:原来是杂乱无章的,现要求按升序排放。

如:

附件有91届-98届,但不是按顺序的。你要通过若干步骤,把91届及对应的下面表格,放到最开头的位置,92届及他对应的下面表格放到91届及表格的下面,以此类推。

说明:

1.一个一个复制粘贴不算对。

2.常规方法做出来1分。(鼓励以此法为准)

3.VBA做出来1分,

两种方法全做出来且高效可得3分。

以下是题目:

 

下面的各位都成功了。
但是,与我的出题意图可能不太一样。
此题有二处陷阱,
 第一:就是表格的形式不完全一样,这样是为VBA有影响
 第二:对于全部用表格转换为文字时会掉失表格的样式。

jssy兄与BIN_YANG168兄都用到了大纲级别来做。思路新颖。
不过,jssy兄的最后,差了一步BIN_YANG168兄的自动排序。想来,可能是这个功能没用过。

   chrisfang兄的做法第一步似乎有待提进。
   第二步就非常不错了。

   weg兄的方法是对的。但不是我出题的本题。如果超过9个。这个表达式就不行了。但是,就题论题则是完全正确的。或者是在四位中还是最好的。
   我原本以为大家会与weg兄的类似方法来做。
   例如,表格,转文本,这个转来转去的。这样的查找、替换为非常复杂。
   没想到,没有人这么做。呵呵,大家还是对于很利害的,能跳过我的陷阱。
 

我的方法是:
1.查找:([0-9]@届),替换为:^p\1,勾选通配符
2.删除第一段空行
3.全选,表格、转换、文本转换为表格,设为2列。
3.表格,排序,列1,数字,升序。
4.表格,转换,表格转换成文本,段落标记,去除转换嵌套表格。

此题主要考察了“表格与文本”之间的互化中。其中,要深刻领会。否则,不容易想到。
还有转换时“转换嵌套表格”的一项,不能用默认的。
看似简单的一个功能,能灵活运行对于工作有时会非常顺手。

[此贴子已经被作者于2006-9-20 17:57:22编辑过]
单选投票, 共有 1 人参与投票

距结束还有: 3346 天15 小时53 分钟

您所在的用户组没有投票权限

TA的精华主题

TA的得分主题

发表于 2006-9-5 22:38 | 显示全部楼层

做一个,凑热闹


'虽然不是很好,但思路新颖。------------konggs

[此贴子已经被konggs于2006-9-20 17:06:29编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

发表于 2006-9-6 10:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

呵呵,word我是菜鸟,不过还是答题支持一下孔兄。

1,在每个表格的首行插入一个空表行,将前面的对应的标题复制入这个空行,操作后结果如下面附件:


2,工具栏-表格-排序-确定,然后再删除表格首行即可。

这样繁琐的方法各位见笑了,期待精彩的答案。

'chrisfang兄是再与我答案接近的。但不是我的要求。

[此贴子已经被konggs于2006-9-20 17:26:47编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

发表于 2006-9-9 23:09 | 显示全部楼层

(常规方法)用通配符查找、替换:

查找内容:(93届^13*)(91届^13*)(94届^13*)(98届^13*)(96届^13*)(97届^13*)(92届^13*)(95届^13*)^13

替换为:\2\7\1\3\8\5\6\4

在word2000下运行成功。

示意图如下:


'----这个是我的错。我没有说明是很多这样的情况。

'就这题此答题正确。

[此贴子已经被konggs于2006-9-20 17:20:10编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

发表于 2006-9-15 13:06 | 显示全部楼层

支持一下,作了一个,不知对否?


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-9-20 17:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

上面的各位都成功了。
但是,与我的出题意图可能不太一样。
此题有二处陷阱,
 第一:就是表格的形式不完全一样,这样是为VBA有影响
 第二:对于全部用表格转换为文字时会掉失表格的样式。

jssy兄与BIN_YANG168兄都用到了大纲级别来做。思路新颖。
不过,jssy兄的最后,差了一步BIN_YANG168兄的自动排序。想来,可能是这个功能没用过。

   chrisfang兄的做法第一步似乎有待提进。
   第二步就非常不错了。

   weg兄的方法是对的。但不是我出题的本题。如果超过9个。这个表达式就不行了。但是,就题论题则是完全正确的。或者是在四位中还是最好的。
   我原本以为大家会与weg兄的类似方法来做。
   例如,表格,转文本,这个转来转去的。这样的查找、替换为非常复杂。
   没想到,没有人这么做。呵呵,大家还是对于很利害的,能跳过我的陷阱。
 

我的方法是:
1.查找:([0-9]@届),替换为:^p\1,勾选通配符
2.删除第一段空行
3.全选,表格、转换、文本转换为表格,设为2列。
3.表格,排序,列1,数字,升序。
4.表格,转换,表格转换成文本,段落标记,去除转换嵌套表格。

此题主要考察了“表格与文本”之间的互化中。其中,要深刻领会。否则,不容易想到。
还有转换时“转换嵌套表格”的一项,不能用默认的。
看似简单的一个功能,能灵活运行对于工作有时会非常顺手。

TA的精华主题

TA的得分主题

发表于 2006-9-21 00:14 | 显示全部楼层

非常感谢孔兄出一道这么好的题!

让我一下子学到了三个新的知识点:排序、表格和文本的嵌套转换、大纲的妙用

仔细学习了孔兄和楼上几位的解法,受益非浅,也理顺了一个共同的思路:

这个问题的关键就是:怎么把文本行跟表格捆绑在一起?

于是就有两种方案:

一、塞法:把文本塞进表格里,利用表格的排序功能。可称为“木马法”

二、归集法:把表格归集到大纲,利用文字的排序功能。(jssy兄与BIN_YANG168兄好象都只用手工排序。

另外,提升文本行的大纲级别可用替换法一次完成。)

  从通用性来讲,大纲法应该更好一点,因为不仅表格,就是图片,几个段落都可以适用,而表格法的要求就苛刻一点。

P.S.:可以看出,我在4楼的“解法”只是投机取巧,谢谢孔兄的以分鼓励。[em04]

TA的精华主题

TA的得分主题

发表于 2006-9-21 08:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

就我上当了.我转成文本,排序,再转成表格(不过你好象没要求表格也要保持原样的吧).想过用原表排序的(先用文本转换成表格),但会出错,原来用2列,把原表当成新表的一个cell..

vba比较简单.时间没来得及.本来想今天做的,没想到已经结了.

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-6-8 07:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

呵呵,罪过,罪过。

shuyee兄上当实在抱歉的很。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-21 19:53 , Processed in 0.041834 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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