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

Davidloi

long_III哥，您好！

我是一个刚学VBA的虔诚的学生，在研究您的关于自动设立同一工作簿中所有工作表的连接（学习分表和Hyperlinks）之后，我有一个问题：

在分表中，我设立了点击之后自动隐藏该表的宏，但是在前面的连接中点击连接却不能显示该表，有没有办法解决？

谢谢您的帮助。

Davidloi

忘记附件，请参考。

yoyo503

可以选择要分开的行吗?

jessicawang9

虽然看不懂，还是要下载后多多研究，多谢楼主了！！

花季

谢谢楼主了!

很是受用啊!!!!!!!!!!!!!!!!!!1

yhf928

值得学习,强呀,版主继续发好贴

花季

我将我总表复制过去后生成的分表行数不够.我的总表共有两千多行,生成分表的一个有一千多行可是生成的没有那么多啊?谢谢三哥指导!!!!!!

yxyzj

各位朋友，这个对我的工作很适用，但怎么看不会呢，上面没有写公式能不能把操作方法告之！谢谢！

werqq

我怎么修改那个表内汇总的代码也控制不了“表名”那一列的位置，怎么回事？？ BUZgJHHa.rar (184.66 KB, 下载次数: 45)

2005-11-15 09:59 上传

点击文件名下载附件
[分享]工作表按条件分开！(可以为表内，也可为表外）2005-10-21更新

Long_III

以下是引用werqq在2005-11-15 9:59:00的发言： 我怎么修改那个表内汇总的代码也控制不了“表名”那一列的位置，怎么回事？？

因为你有合并单元格，影响了icol的值，建议用下面的，请看

Sub XXX() Dim sht As Worksheet Dim irow&, icol&, Num&

Application.ScreenUpdating = False For Each sht In Sheets If sht.Name <> "汇总" Then With sht irow = .Range("a1").CurrentRegion.Rows.Count icol = .Range("a1").CurrentRegion.Columns.Count Num = Sheets("汇总").[a65536].End(xlUp).Row .Range(.Cells(4, 1), .Cells(irow, icol)).Copy Sheets("汇总").Cells(Num + 3, 1) End With With Sheets("汇总") .Columns(icol + 1).NumberFormatLocal = "@" .Range(.Cells(Num + 1, icol + 1), .Cells(Num - 1 + irow, icol + 1)) = sht.Name End With End If Next Application.ScreenUpdating = True End Sub