Question

录入窗体录入的数据在工作表中错位

excel中有一个表格，这个表格总共是2001行，前1000行已经录入了数据，1001行开始是空白的，然后我写了一个数据录入窗体，从B列最后一个非空单元格开始录入数据，按理说应该共1001行开始录，但是当我点击保存后，录入的数据竟然跑到2002行，也就是表格外的第一行
下面是源代码，高手能不能帮我看下问题出在哪里

Private Sub CommandButton1_Click() '单击“点击保存”按钮时时执行
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" Then '如果5个文本框都有字符
With Worksheets("2014").Cells(Rows.Count, 2).End(xlUp) '引用复合框指定的工作表的A列最后一个非空单元格
.Offset(1, 3) = ComboBox1.Value
.Offset(1, 5) = ComboBox2.Value
.Offset(1, 6) = TextBox1 '将文本框TextBox1中的值导入到下移一行右移六列的单元格
.Offset(1, 8) = TextBox2 '将文本框TextBox2中的值导入到下移一行右移八列的单元格
.Offset(1, 10) = TextBox3
.Offset(1, 11) = TextBox4
.Offset(1, 12) = TextBox5
.Offset(1, 16) = TextBox6
End With
End If
End Sub

Answer 1

Private Sub CommandButton1_Click()    '单击“点击保存”按钮时时执行

    lastrow = Worksheets("2014").UsedRange.SpecialCells(xlCellTypeLastCell).Row '标识最后一行

    If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" Then    '如果5个文本框都有字符
    
        Worksheets("2014").Cells(lastrow, 3) = ComboBox1
        Worksheets("2014").Cells(lastrow, 5) = ComboBox2
        Worksheets("2014").Cells(lastrow, 6) = TextBox1
        Worksheets("2014").Cells(lastrow, 8) = TextBox2
        Worksheets("2014").Cells(lastrow, 10) = TextBox3
        Worksheets("2014").Cells(lastrow, 11) = TextBox4
        Worksheets("2014").Cells(lastrow, 12) = TextBox5
        Worksheets("2014").Cells(lastrow, 16) = TextBox6

    End If

End Sub