《电子电脑》显示文章详细内容： [展开] [回复] [网址] [举报] [屏蔽]
to8go 等    级：长老 经 验 值：1609 魅 力 值：162 龙    币：3756 积    分：1851.4 注册日期：2002-12-03	加了一段代码，这次应该是比较完善了，不会在末尾出现表头了 Sub 宏1() For n = 1 To 10000 aa = 4 + (n - 1) bb = 5 + (n - 1) cc = 7 + (n - 1) dd = CStr(bb) + ":" + CStr(cc) If Range("A" & aa).Value <> Range("A" & bb).Value And Range("A" & bb).Value <> "" Then Rows(dd).Select Selection.Insert Shift:=xlDown Range("1:3").Select Selection.Copy Range("A" & bb).Select ActiveSheet.Paste n = n + 3 End If Next n End Sub -- 该网址不再展示
2006-10-20 20:36:05	此文章已经被查看188次

相关文章：

[回复]  [顶端]

excel问题，谁对宏比较熟悉？-to8go (356字节 阅读:365次 跟贴:14 2006/10/18 22:06)[跳过] 如果格式是固定的，比较好实现，用VBA（office环境下的VB语言）可以实现。(空)-doublejune (阅读:188次 2006/10/18 23:17) 呵呵，我也这样想的，但是对vb不大了解(空)-to8go (阅读:139次 2006/10/19 19:31) 这样写-bjggyy (206字节 阅读:187次 2006/10/19 12:01) 多谢提供代码，可是怎么删除了呢，执行几次就都删没了啊？(空)-to8go (阅读:184次 2006/10/19 19:32) 改动后我是这样写的-to8go (324字节 阅读:146次 2006/10/19 20:09) 先赋值再合并。假设第3行，合并1至5列-北京偏北 (64字节 阅读:166次 2006/10/19 20:20) 这个我看不明白，对vb我还连皮毛都没学会呢，呵呵(空)-to8go (阅读:139次 2006/10/19 20:30) 改动后我是这样写的-to8go (345字节 阅读:124次 2006/10/19 20:27) 前提是提前把表头放在第一个表格的前三行(空)-to8go (阅读:197次 2006/10/19 20:29) 需要的功能已经实现，多亏你提供的代码，给我帮助很大，谢谢你哦！！！-to8go (48字节 阅读:243次 2006/10/20 20:45) 不是很完善，需要根据文件大小来确定变量的范围，如果能够自动判断就好了-to8go (77字节 阅读:283次 2006/10/20 20:00) IF Sheet1.Cells(line,1).Text = "" Then-北京偏北 (28字节 阅读:1100次 2006/10/20 20:15) 不会加，如果加在我的那段代码里面该怎么加呢？(空)-to8go (阅读:151次 2006/10/20 20:41) 加了一段代码，这次应该是比较完善了，不会在末尾出现表头了-to8go (411字节 阅读:188次 2006/10/20 20:36)

您必须登录论坛才可以发表文章：

用户名：   密码：   记住密码：    （忘记密码 注册）

版权所有 回龙观社区网 经营许可证编号：京B2-20201639 昌公网安备1101140035号

举报电话：010-86468600-5 举报邮箱：