Office中国论坛/Access中国论坛

标题: 初来乍到，请多帮忙，有个问题想问。——有关隔行插入 [打印本页]

作者: hclnj 时间: 2007-9-18 22:03
标题: 初来乍到，请多帮忙，有个问题想问。——有关隔行插入
大家帮帮忙。
我在借助EXEL把现有的词库转换成词典文件时遇到一个难题。请各位帮我解决一下。

怎样可以在行和行之间各自动添加一行？

也就是说自动地，一次性地

      第一行和第二行之间添加一行
      第二行和第三行之间添加一行
      。。。
      。。。。

应该怎么操作？

[ 本帖最后由 pureshadow 于 2007-9-18 23:12 编辑 ]

作者: pureshadow 时间: 2007-9-18 23:24
是做工资单么？
隔行插入的代码没有，倒是有个代码可以达成累似的需求：
Dim f As Integer
f = Cells(65536, 1).End(xlUp).Row
i = 1
For m = 1 To f
Range("A1:ai1").Copy Destination:=Range("an" & i & ":bv" & i)
i = i + 1
Range("A" & m + 2 & ":ai" & m + 2).Copy Destination:=Range("an" & i & ":bv" & i)
i = i + 2
Next
还有个办法就是加个辅助列，按序填上数字，然后再把这串数字复制到下面的空行中的同一列里，再以那一列排序，操作熟练的话，比代码方便。

作者: hclnj 时间: 2007-9-19 15:46
[attach]26383[/attach]好像跟我说的不一样。

我是说添加空行，不是添加或什么内容。

比如
[localimg=400,284]1[/localimg]

作者: hclnj 时间: 2007-9-19 16:11
还有就是

有没有除了代码，函数等复杂的方法外，简单一点的。
虽然我也想应该没有。

作者: pureshadow 时间: 2007-9-19 20:37
添空行和添内容都一样啊，不过一个插入的是空行，一个插入的是有内容的行，吼吼。。。。
最简单的就是排序法了。

作者: hclnj 时间: 2007-9-19 21:05
还有个办法就是加个辅助列，按序填上数字，然后再把这串数字复制到下面的空行中的同一列里，再以那一列排序，操作熟练的话，比代码方便。

这个就是你说的排序法吧？我对EXEL比较菜，看不明白。

这个功能对我很重要的，它能给我省很多时间和精力，请你详细给我解释好吗

？非常感谢！！！

作者: pureshadow 时间: 2007-9-19 23:14
这样子操作的：

作者: hclnj 时间: 2007-9-20 07:35
真厉害！
太感谢了！
真是给我帮了一个大忙！！！！！！！！！！！！！！

作者: hclnj 时间: 2007-9-20 07:44
现在还有一个问题，

我的这个文件的行数特别庞大，拖拽添加数字很吃力。怎样才可以直接轻松地在辅助列里添加数字，而不是用拖拽的方法。

作者: hclnj 时间: 2007-9-20 08:07
使用了从word直接导入数字的方案。

word里的添加项目编号-复制-粘贴

作者: pureshadow 时间: 2007-9-20 10:22
行数特别庞大拖拽吃力吗？好办啊，不用WORD也行。
举个例子，如果A1：A10中没有空格，在B1中输入1，光标放到单元格右下角出现黑色十字后双击，就自动填充B1：B10了，如果填充的结果都是1，只要点一下自动填充选项即可。
再举个例子，要填充A2：A10，选上A2：A10，在A2中输入counta($a$1:a1)+1，然后按CTRL+ENTER即可。
方法还有N种……

作者: shenboo 时间: 2007-9-22 08:45
也可以在Word中用查找替换的方法, 把^p替换成^p^p

作者: hclnj 时间: 2007-9-24 15:24

原帖由 shenboo 于 2007-9-22 08:45 发表
也可以在Word中用查找替换的方法, 把^p替换成^p^p

这位老兄，^p是什么意思啊？？？

作者: pureshadow 时间: 2007-9-24 16:38
就是回车呀，楼上的兄弟，打开个WORD文件试一下就知道了呀。

作者: begstar 时间: 2007-9-26 19:02
这边的高手还真不多嗄，佩服。

作者: panjianhui 时间: 2007-10-13 19:34
真是受益颇多啊!
有没有什么贴集合这些技巧的啊

作者: wkl 时间: 2007-10-22 11:12
标题: 还是排序法
我试了，排序法简单易懂，只要懂得基本的操作就可以了．

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)