通过用户窗体将数据插入新行 - Excel Vba

Posted 2023-04-19

【中文标题】通过用户窗体将数据插入新行 - Excel Vba

【英文标题】：Insert data into a new row through a userform - Excelvba

【发布时间】：2014-10-01 11:52:04

【问题描述】：

正如标题所示，我正在尝试通过用户表单将数据添加到新行中。我遇到的问题是布局是这样的：

标题 1 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9 月 10 月 11 月 12 月 总计 收入 （这里需要是插入数据的地方） 传出 （再次，这里需要添加另一组数据）

实现这一点的代码是什么，因为目前它低于传出但我希望它介于收入和传出之间

如果您需要更多信息，我很乐意与您讨论。

提前致谢

【问题讨论】：

你现在有什么代码？ （*** 不会为您编写完整的解决方案 - 它可以帮助您解决问题）

【参考方案1】：

你提供的细节太少，你到底在苦苦挣扎。我可以提出以下建议： 1. 创建一个用户窗体，其列作为文本框。 2. 向用户窗体添加一个按钮。单击后找到工作表中的最后一行 (http://www.ozgrid.com/VBA/ExcelRanges.htm) 并插入每个文本框中的值。

以下是一些帮助您入门的链接：

用户窗体：http://www.excel-easy.com/vba/userform.html 操作单元格：http://msdn.microsoft.com/en-us/library/office/ff838238(v=office.15).aspx

【讨论】：

我正在苦苦挣扎的部分是让按钮始终在 A2 处插入新行（例如），然后在工作表的最后一行上方再次插入 1 行。

在 A2 添加新行 - Range("A2").EntireRow.Insert Shift:=xlDown。如果您想在工作表 Range("A1").End(xlDown).EntireRow.Insert Shift:=xlDown （其中 A1 是您将要从中搜索的工作表中的第一个单元格）中的最后一行上方添加一行 1向下为第一个空单元格）