见证成长历程---我的答疑解难代码汇总

lsc900707 · 发表于 2022-3-8 07:12

wggx4 发表于 2022-3-7 16:47
我试了下程序，不知道怎么提示1004错误。提示未定义对象

自己可以增加定义，也可以删掉强制申明的语句！

wggx4 · 发表于 2022-3-8 09:04

lsc900707 发表于 2022-3-8 07:12
自己可以增加定义，也可以删掉强制申明的语句！

不太清楚怎么定义，或者删除哪一句。我试的第一个程序

wggx4 · 发表于 2022-3-22 16:54

lsc900707 发表于 2017-1-7 09:01
按指定编号筛选数据代码：
Sub lsc()
[e2:g5000].ClearContents

版主这个有原文件没有啊，好看看原文件运行效果。

YEGEYEWU · 发表于 2022-4-12 11:24

lsc900707 发表于 2017-3-6 01:08
工作表拆分
http://club.excelhome.net/thread-1332019-1-1.html
(出处: ExcelHome技术论坛)

大佬，能不能再限制一下，比如每30行，7列输出一个工作簿，并以每张表的第5行2列为工作簿名称？

lsc900707 · 发表于 2022-4-12 19:29

YEGEYEWU 发表于 2022-4-12 11:24
大佬，能不能再限制一下，比如每30行，7列输出一个工作簿，并以每张表的第5行2列为工作簿名称？

上传附件吧，不知你的具体数据是怎样的！

wggx4 · 发表于 2022-4-23 19:32

lsc900707 发表于 2017-1-18 14:23
合并多列同行数据为一个单元格，用空格隔开：
Sub lsc()
For i = 2 To Cells(Rows.Count, 1).End(xl ...

d(Arr(i, 1)) = Array(Arr(i, 2), Arr(i, 3), Arr(i, 4))
这一句椒第一次看到！

前进者 · 发表于 2022-4-23 21:22

总结的很好。标记一下，以便学习备用！

15505219267 · 发表于 2022-5-19 21:11

学习了，谢谢！！

Neil258 · 发表于 2022-7-20 11:50

lsc900707 发表于 2018-8-3 17:51
将表拆分文件和汇总
http://club.excelhome.net/thread-1428140-1-1.html
(出处: ExcelHome技术论坛)

我的问题类似这个拆分，但是我的表里有个汇总，内容是1月，2月的透视，想要拆分后的每个工作簿也都保留这个汇总表，并且自动刷新，请问这个情况有方法解决吗？

gwjkkkkk · 发表于 2022-7-25 20:29

谢谢楼主分享。。。

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

[分享] 见证成长历程---我的答疑解难代码汇总