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

张振林 · 发表于 2005-4-11 12:12

这一个程序，如何将excel分表自动保存在‘分表’文件夹内。详细见附件。

qBiopQVs.rar (23.21 KB, 下载次数: 137)

Long_III · 发表于 2005-4-11 12:19

以下是引用power100在2005-4-10 0:51:00的发言：
龙三哥!这样的代码能实现吗!

在"计算工作表"中点击"汇总"自动生成"汇总表"中的内容!

第一个问题我帮你想想，不过汇总表的顺序可能有改变

第二个问题不是很明白

Long_III · 发表于 2005-4-11 12:23

to 张振林：

我代码中有一句Path = Application.ActiveWorkbook.Path，即设置当前工作薄的路径为分开之后文件的路径

如果你想单独放在一个文件夹里，假设在E盘，可以改为path = "E:\分表"

也可以，直接把这个分表放在文件夹“分表”中进行分解！

power100 · 发表于 2005-4-12 13:06

龙三哥!我的工程量汇总表搞定了吗!

Long_III · 发表于 2005-4-13 10:13

以下是引用power100在2005-4-12 13:06:00的发言： 龙三哥!我的工程量汇总表搞定了吗!

你的代码我帮你写了，请看

（看你里面的代码，水平应该不错，不可能这个做不好？这段代码是从最后往上循环，每次判断一个范围，然后对其进行排序，比较第三列是否相同）

对代码具体就不解释了

Sub 汇总() Dim i%, istar%, iend% Dim sht As Worksheet

Application.ScreenUpdating = False Set sht = Sheets("计算") With Sheets("汇总") .Cells.Delete sht.Cells.Copy .[a1] istar = .[c65536].End(xlUp).Row

Do Until istar <= 4 iend = .Cells(istar, 1).End(xlUp).Row + 1 .Range(.Cells(iend, 2), .Cells(istar, 7)).Sort key1:=.Cells(iend, 3) For i = istar To iend + 1 Step -1 If .Cells(i, 3) = "" Then .Rows(i).Delete If .Cells(i, 3) = .Cells(i - 1, 3) Then .Cells(i - 1, 5) = .Cells(i - 1, 5) + .Cells(i, 5) .Rows(i).Delete End If Next i istar = iend - 2 Loop End With Application.ScreenUpdating = True End Sub

B9CfaERn.rar (17.03 KB, 下载次数: 236)

deluxth · 发表于 2005-4-13 19:21

[em02]这个东东就应该是精品

chuchoo · 发表于 2005-4-13 19:50

有用。下载。谢谢

power100 · 发表于 2005-4-13 21:52

谢,龙三哥赐代码!其实这个工作表里的代码是我从论坛里的一位高人处求得的!

让龙三哥见笑了!

[em04]

YEST8 · 发表于 2005-4-15 18:26

好！

精品！

谢谢！！

神之冥想 · 发表于 2005-4-16 22:03

谢谢顶一下，不知道来得及不？谢谢。

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