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

【问题标题】：Insert data into a new row through a userform - Excelvba通过用户窗体将数据插入新行 - Excel Vba
【发布时间】：2014-10-01 11:52:04
【问题描述】：

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

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

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

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

提前致谢

【问题讨论】：

标签： excel vba

【解决方案1】：

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

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

【讨论】：

我正在苦苦挣扎的部分是让按钮始终在 A2 处插入新行（例如），然后在工作表的最后一行上方再次插入 1 行。
在 A2 添加新行 - Range("A2").EntireRow.Insert Shift:=xlDown。如果您想在工作表 Range("A1").End(xlDown).EntireRow.Insert Shift:=xlDown （其中 A1 是您将要从中搜索的工作表中的第一个单元格）中的最后一行上方添加一行 1向下为第一个空单元格）