现有VBA宏将TextBox数据写入活动空白单元格，需改为写入最后空白行求修正

我来帮你调整这个宏，让它精准把TextBox的内容写入工作表的最后空白行，替代原代码依赖活动单元格的逻辑。原代码的问题在于用Select和ActiveCell操作既不稳定又效率低，而且定位最后行的逻辑有偏差，下面是修正后的完整方案：

Sub FillDateSenderFrom()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    
    ' 指定要操作的工作表，这里用活动表，也可以改成具体表名如Sheets("数据录入表")
    Set ws = ActiveSheet
    
    ' 找到工作表的最后空白行（以A列为基准，可根据你的数据列调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 循环处理TextBox1到TextBox3
    For i = 1 To 3
        ' 判断当前TextBox是否非空
        If Controls("TextBox" & i).Text <> "" Then
            ' 将内容写入最后空白行的对应列（i=1对应D列，i=2对应E列，i=3对应F列，可按需修改列号）
            ws.Cells(lastRow, 3 + i).Value = Controls("TextBox" & i).Text
        End If
    Next i
End Sub

关键改动说明： #

• 抛弃Select/ActiveCell操作：直接通过工作表对象ws操作单元格，避免因用户点击其他单元格导致的定位错误，代码稳定性大幅提升。
• 精准定位最后空白行：ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 会先找到A列最后一个有内容的行，再加1得到下一个空白行。如果你的数据是以其他列（比如D列）为基准，把"A"改成对应列标识即可。
• 直接映射目标列：根据TextBox序号，把内容写入最后空白行的对应列（比如i=1对应D列），如果需要调整目标列，修改3+i的数值就行（比如要写到A/B/C列就改成i）。

额外优化提示： #

• 如果TextBox是在用户窗体上，建议明确指定窗体对象，比如UserForm1.Controls("TextBox" & i)，避免控件引用歧义。
• 要是只需要基于某一列（比如D列）判断最后空白行，可以把lastRow的计算改成ws.Cells(ws.Rows.Count, "D").End(xlUp).Row + 1。

内容的提问来源于stack exchange，提问作者kalpesh patel