从特定列和单元格中的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行，如果第一个单元格晚于此，则会将其添加到之后的下一个空行。