填充時的形式被保存三列

Question

我有以下形式之前的數據提交給表應完成：

我想這樣的形式完成時它編碼和當點擊保存按鈕時，它會找到列A中的第一個空單元格，並從上面複製公式，我已經成功地做到了這一點，但現在我想要在列B中製作標籤，並像以前一樣從上面複製公式。

然後，然後將該選項卡插入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