向下传输/移动添加的数据（而不是追加）答案

【问题标题】：Transfer/move added data down (instead of appending)向下传输/移动添加的数据（而不是追加）
【发布时间】：2018-12-05 18:28:44
【问题描述】：

我有以下宏在添加数据和新行方面对我来说很好：

Private Sub CommandButton1_Click()
  Dim emptyRow As Long

  'Make WOTracker active
  Sheets("WOTracker").Activate

  'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

  'Transfer information
   Cells(emptyRow, 1).Value = TextBox1.Value
   Cells(emptyRow, 5).Value = TextBox2.Value
End Sub

我需要帮助的是修改代码，以便将先前添加的数据向下推送，而不是在现有行下方添加数据（到新行）。所以第 2 行的内容进入第 3 行，新数据插入第 2 行。

【问题讨论】：

那么，你想在第 2 行插入新数据，对吧？

标签： excel vba data-entry

【解决方案1】：

只需在Range("A2") 处插入新行，然后将最后一行变量更改为2 以表示row 2

Private Sub CommandButton1_Click()

    With ThisWorkbook.Sheets("WOTracker") 
        .Cells(2, 1).EntireRow.insert
        .Cells(2, 1).Value = TextBox1.Value
        .Cells(2, 5).Value = TextBox2.Value
    End With
End Sub

【讨论】：