[分享]工作表按条件分开！(可以为表内，也可为表外）2005-10-21更新

shuiyuan · 发表于 2005-3-18 20:51

工具－－宏－－安全性－－选（中）

chenyu · 发表于 2005-3-18 23:11

正是我需要的，谢！

guangyp · 发表于 2005-3-19 00:00

......（输入1时分开有错误）--------

....... .Cells.AutoFilter field:=ICol, Criteria1:=H(i) Sheets.Add(after:=Sheets(Sheets.Count)).Name = H(i) .[a1].CurrentRegion.Copy Sheets(CStr(H(i))).[a1] '自动筛选，并复制到新建的表中 ........

选1时出错的原因已发现：这时的H(i)在自动筛选中不是日期格式(如2005-1-2)的表达方式，而是与1990-1-1的差值（如38354)方式出现，有故筛选结果为空，我想在筛选前程序要加一个对H(i)的格式判断语句并作转换才行。

[此贴子已经被作者于2005-3-19 0:02:15编辑过]

6606txj · 发表于 2005-3-19 00:24

正是我需要的，也是我百思不得其解的。

谢谢！解决了我多年的问题，更节省了我工作中的宝贵时间，挤出时间来这里

和各位高手学习，我像一个饥饿了很久的人终于看到了面包，拼命的在这里吞

噬着，即使一时消化不了我也要放在口袋里，以备今后的荒年。

再次感谢你的无私分享！！！！

guangyp · 发表于 2005-3-19 00:52

ajjuUV6K.rar (17.53 KB, 下载次数: 440)

[此贴子已经被作者于2005-3-19 0:52:47编辑过]

guangyp · 发表于 2005-3-19 01:29

9wGKVXxe.rar (20.05 KB, 下载次数: 1809)

guangyp · 发表于 2005-3-19 12:23

奇怪，龙三兄这么实用的工具怎么会这么快就沉没了？如果大家觉得好的话，请顶一下。

小冰雹 · 发表于 2005-3-19 13:35

好东西当然要了,谢谢!

ls_y · 发表于 2005-3-20 10:37

分合之事，有谁能说的清，只要是好文章，顶，

lgcmeli · 发表于 2005-3-20 11:44

是不错的.

		自动登录	找回密码
密码			免费注册

[分享]工作表按条件分开！(可以为表内，也可为表外）2005-10-21更新

用输入'来解决非文本出错问题。

经试验，我在楼上的版本有较大的缺点：会破坏原表的公式！！！故重新修改代码上传。

评分