《电子电脑》显示文章详细内容： [展开] [回复] [网址] [举报] [屏蔽]
bjggyy 等    级：长老 经 验 值：1031 魅 力 值：87 龙    币：2960 积    分：1343.9 注册日期：2005-01-19	这样写 Sub 宏1() ' For n = 1 To 3 aa = 1 + (n - 1) * 6 bb = 3 + (n - 1) * 6 dd = CStr(aa) + ":" + CStr(bb) Rows(dd).Select Selection.Delete Shift:=xlUp Next n End Sub
2006-10-19 12:01:10	此文章已经被查看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字节 阅读:188次 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 举报邮箱：