插入行后，自动复制上一行“指定列”的内容到刚插入的行

qunzhujunjun

新年好，如附件，谢谢！


鼠标选中单元格，有没有什么方法，能快速插入行呢？插件也行，不想选中整行，CTRL+“小键盘的+”，太麻烦。谢谢



想实现的就是选中任意任意单元格，插入一行，并复制上一行指定列的内容。

因为我在论坛里找到其他人的类似求助，手动插入一行后，复制整行内容到下一行。我和他的区别是，我只需要指定的列。
那现在我用按键精灵可以实现右键双击插入一行，是否能VBA只写后面复制制定列的内容呢？谢谢
如果不用按键精灵，是否VBA可以实现右键双击任意单元格，插入一行，并复制指定列的内容。

再高级点，指定列是否可以自定义，比如，按下图，当指定行的单元格标注"A"时，插入行就自动复制内容，未标注"A"的，不复制。
如果能实现，就是最终的需求，谢谢啦

leirongqin

双击A列任意单元格，只要A列不是空值，就在双击单元格下方插入一行，并且选定单元格C列位置不是空值，那就直接复制C:F到插入行

qunzhujunjun

leirongqin 发表于 2023-1-6 09:08
双击A列任意单元格，只要A列不是空值，就在双击单元格下方插入一行，并且选定单元格C列位置不是空值，那就 ...

我现在配合按键精灵，可以实现，在任意单元格上，右键双击，插入一行，那么能否修改一下，不要双击A列，因为我的列实在太多了呀。然后我试了一下，这个插入行以后，不能Ctrl+Z撤销呀

leirongqin

qunzhujunjun 发表于 2023-1-6 09:21
我现在配合按键精灵，可以实现，在任意单元格上，右键双击，插入一行，那么能否修改一下，不要双击A列， ...

不懂，既然知道用vba为什么还要用按键精灵，还有就是求助，你自己要想好自己需要什么。任意单元格都插入也是可以，但是这样没有限制。多数情况下是不好用的

tmplinshi

1. Private insertedRng As Range
   
2. 
   
3. Sub CopyCDEF()
   
4. 
   
5.     With ActiveCell.EntireRow
   
6.         .Offset(1).Insert
   
7.         .Columns("C:F").Copy .Offset(1).Columns("C:F")
   
8.     End With
   
9.    
   
10.     Set insertedRng = ActiveCell.EntireRow.Offset(1)
    
11.     Application.OnUndo "撤销复制CDEF", "CopyCDEF_Undo"
    
12.    
    
13. End Sub
    
14. 
    
15. Private Sub CopyCDEF_Undo()
    
16. 
    
17.     If Not insertedRng Is Nothing Then
    
18.         insertedRng.Delete
    
19.         Set insertedRng = Nothing
    
20.     End If
    
21.    
    
22. End Sub

复制代码

按快捷键 Ctrl+Q 复制，支持撤销操作

qunzhujunjun

leirongqin 发表于 2023-1-6 09:47
不懂，既然知道用vba为什么还要用按键精灵，还有就是求助，你自己要想好自己需要什么。任意单元格都插入 ...

想实现的就是选中任意任意单元格，插入一行，并复制上一行指定列的内容。

因为我在论坛里找到其他人的类似求助，手动插入一行后，复制整行内容到下一行。我和他的区别是，我只需要指定的列。
那现在我用按键精灵可以实现右键双击插入一行，是否能VBA只写后面复制制定列的内容呢？谢谢
如果不用按键精灵，是否VBA可以实现右键双击任意单元格，插入一行，并复制指定列的内容。

再高级点，指定列是否可以自定义，比如，按下图，当指定行的单元格标注"A"时，插入行就自动复制内容，未标注"A"的，不复制。
如果能实现，就是最终的需求，谢谢啦

leirongqin

qunzhujunjun 发表于 2023-1-6 11:52
想实现的就是选中任意任意单元格，插入一行，并复制上一行指定列的内容。

因为我在论坛里找到其他人的 ...

A1到G7,只要输入大写A。任意单元格双击，只要A列不是空值，都在下方插入并复制

qunzhujunjun

leirongqin 发表于 2023-1-6 15:33
A1到G7,只要输入大写A。任意单元格双击，只要A列不是空值，都在下方插入并复制

最后一项调整，是否可以设置，在被双击的单元格的上方，插入一行，并复制新行的上一行的数据呢

leirongqin

qunzhujunjun 发表于 2023-1-6 16:44
最后一项调整，是否可以设置，在被双击的单元格的上方，插入一行，并复制新行的上一行的数据呢

下班，休息了。明天看看有空没

tanglf188

参与一下，从第10行开始双击行生效，Ctrl+Shift+Z撤销