[已解决]这个要怎么自动插入行

chinagdzhao

孤单无所谓 发表于 2012-12-15 09:52
纯属初级入门水平。。。 练习练习

你这个的确插入行了，但上下各插入一行，不是我想要的效果，我只要向下插入一行，不过还要谢谢你

chinagdzhao

lzclzch 发表于 2012-12-15 09:19
你可以用列表来需求

研究完VBA想试试你这个，才发现Excel跟你图的不一样，找不到创建列表的地方，，郁闷啊

hwc2ycy

上面的代码和附件是已经改好了的。

chinagdzhao

hwc2ycy 发表于 2012-12-15 18:09
上面的代码和附件是已经改好了的。

但运用到我的表格就不行了，能用我的附件弄一下吗


已解决，附件已删除！！！

hwc2ycy

有个问题，公式不会自动更新了。还是用列表功能比较好

chinagdzhao

hwc2ycy 发表于 2012-12-15 20:22
有个问题，公式不会自动更新了。还是用列表功能比较好

那也没办法了，先搁一边！！等以后技术允许再用，呵呵！   谢谢你的积极回复

zjdh

chinagdzhao 发表于 2012-12-15 18:58
但运用到我的表格就不行了，能用我的附件弄一下吗

这个你试试
自动插入行.rar (12.84 KB, 下载次数: 14)

2012-12-16 10:31 上传

点击文件名下载附件

chinagdzhao

zjdh 发表于 2012-12-16 10:31
这个你试试

是要这个效果了，代码简单点就行，最主要不影响最后一行合计，而且插入的是空行


但是为什么上传附件的都是B列倒数二行非空才自动插入，我想要的是A列！

zjdh

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Count = 1 And Target.Column = 1 Then
   
4.         If Target <> "" And Target.Row = Cells.Find("*", , , , 1, 2).Row - 1 Then
   
5.             Rows(Target.Row).Insert
   
6.             Target.EntireRow.Copy Target.Offset(-1, 0)
   
7.             Target.EntireRow.ClearContents
   
8.         End If
   
9.     End If
   
10.     Application.EnableEvents = True
    
11. End Sub
    

复制代码

chinagdzhao

zjdh 发表于 2012-12-16 15:39

很好用，谢谢了