vba - 保存表单时填充三列

Question

我有以下表格，应在将数据提交到工作表之前填写:

我正在尝试对其进行编码，以便在完成表单并单击保存按钮时，它将找到 A 列中的第一个空单元格并复制上面的公式，我已经成功地做到了这一点，但现在我想像以前一样进入 B 列并复制上面的公式。

然后按 Tab 键进入 C 列，并按我创建的表单中的顺序将数据输入到相邻的单元格中。

这是我的代码，但我真的一无所知!

Private Sub CommandButton2_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Master Data")

NextFree = Range("A10:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree).Select

' Copy formula from cell above
    Dim oCell As Range
        For Each oCell In Selection
            If (oCell.Value = "") Then
            oCell.Offset(-1, 0).Copy Destination:=oCell
            End If
        Next oCell

End Sub

' Move to adjacent cell
    Sub MoveOver()
        ActiveCell.Offset(0, 1).Select
    End Sub


'Insert data into cells
Sub LastRow()
.Offset(1, 0) = ComboBox1.Text
.Offset(1, 1) = TextBox1.Value
.Offset(1, 2) = TextBox2.Value
.Offset(1, 3) = TextBox3.Value
.Offset(1, 4) = TextBox4.Value
.Offset(1, 5) = TextBox5.Value
.Offset(1, 6) = TextBox6.Value

End Sub

Answer 1

这可能是您正在寻找的类似内容吗？

Dim lstRw As Long
lstRw = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lstRw & ":B" & lstRw).Copy Range("A" & lstRw + 1)

您可以将其保留在同一个子目录中，例如

Dim lstRw As Long
Dim Rng As Range
lstRw = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A" & lstRw + 1)
Range("A" & lstRw & ":B" & lstRw).Copy Range("A" & lstRw + 1)
With Rng
    .Offset(, 2) = ComboBox1.Text
    .Offset(, 3) = TextBox1.Value
    .Offset(, 4) = TextBox2.Value
    .Offset(, 5) = TextBox3.Value
    .Offset(, 6) = TextBox4.Value
    .Offset(, 7) = TextBox5.Value
    .Offset(, 8) = TextBox6.Value
End With