从特定列和单元格开始添加UserForm的值

Question

我有一种将来自VBA UserForm的输入信息添加到专用单元格的表单。名字，姓氏，我使用iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row查找空行，并在行的特定列中添加信息。默认情况下，信息打印在B1上，可以将其更改为G7吗？

Dim iRow As Long 
Dim ws As Worksheet 
Set ws = Worksheets("Sheet1") 

    ws.Cells(iRow, 2).Value = Me.txt_firstname 
    ws.Cells(iRow, 3).Value = Me.txt_lastname 

Answer 1

更改您的行数到这一点：

iRow = ws.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row 

If iRow<7 then 
iRow =7 
End if 

ws.Cells(iRow, 7).Value = Me.txt_firstname 

这将改变你的细胞数至少排7，如果第一个单元是晚于后，将其添加到下一个空行之后。