输入数据时自动插入行&然后合并单元格
输入数据时自动插入行&然后合并单元格
提问于 2015-06-25 20:10:36
当在B列中的任何单元格中输入数据(用户已按下“返回”)时，我希望在数据输入的行的正下方插入四行。
我希望程序在用户按下返回单元后自动运行。我有三个症结：
- 找到一种不需要用户按下按钮就可以运行的程序。我花了相当多的时间搜索要使用的示例代码，并找到了几个资源，但我使用的两个示例似乎不起作用。PDCA是工作表名，Add_Row是我编写的宏，用于在用户输入的数据下面添加行。
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B3:B14]) Is Nothing Then Sheets("PDCA Tracking").Add_Row End Sub
- 实际上正在运行Add_Row程序。我得到一个错误1004应用程序定义或用户定义的错误。我的第二个问题是，当用户点击返回时，活动的单元格不会是刚才输入数据的那个单元，是吗？我该怎么减轻呢？这将是电子表格的最后一行，我能否找到最后一行，然后在它下面添加行？： 在活动单元ActiveCell.Offset(1).EntireRow.Insert cell (ActiveCell.Offset(1)，3).Value = "Zulu“ActiveCell.Offset(2).EntireRow.Insert cell(ActiveCell.Offset(2)，3).Value =”扬基“ActiveCell.Offset(3).EntireRow.Insert Cells(ActiveCell.Offset(3)，3).Value =”X射线“ActiveCell.Offset(4).EntireRow.Insert cell(ActiveCell.Offset(4)，3).Value =“威士忌”调用Merge_Cells End Sub
- 输入数据后，我希望将单元格放在用户刚刚添加数据的行下面，并将它们合并。(也就是说，如果用户输入“香蕉”，而我在“香蕉”下面添加了四行，我只希望香蕉下的四个新单元与包含“香蕉”的单元格合并。我知道有一个.Merge命令，但也不确定要使用什么语法。
任何和所有的帮助都是非常感谢！
更新:我想出了如何在最后一行中添加数据。
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Cells(lastRow + 1, 3).Value = "Zulu"
Cells(lastRow + 2, 3).Value = "Yankee"回答 1
Stack Overflow用户
回答已采纳
发布于 2015-06-25 20:39:19
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo haveError
If Target.Cells.Count = 1 And _
Not Application.Intersect(Target, [B3:B14]) Is Nothing Then
Application.EnableEvents = False
With Target
.Offset(1, 0).Resize(4, 1).Insert Shift:=xlDown
.Resize(5, 1).Merge
.VerticalAlignment = xlTop
End With
Application.EnableEvents = True
End If
Exit Sub
haveError:
Application.EnableEvents = True
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31059862
复制相关文章
相似问题
腾讯云开发者
