Question

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

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行中。

Answer 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

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

1 个答案: