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

我有一个表单，从VBA UserForm添加input信息到专用单元格，例如名字，姓氏，我使用iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Rowfind一个空行，并在该行的特定列中添加信息。 默认情况下，信息打印在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 

这会将您的单元格数至less改为第7行，如果第一个单元格比第一个单元格更晚，那么将它添加到之后的下一个空行。