excel vba-将数据从userform插入excel

我有一个从特定行提取信息的用户表单。用户表单使用vlookup查找使用A列中的数字的行

在用户表单中显示表中的数据后：

• 我希望此人能够从中将数据插入到表单中 txtboxs
• 输入到特定行（基于上一次搜索的编号
• 在特定列中

然后，如果列中的单元格不是空的，则移动到下一个空闲列并将其插入其中

我希望我的问题是清楚的

If Trim(TB_staus.Text) = "????" Then
    Worksheets("lists").Select
    Worksheets("lists").Range("A5").Select
    If Worksheets("lists").Range("a5").Offset(1, 0) = CMB_Cavityenter.Value Then
        Worksheets("lists").Range("a5").End(xlDown).Select
    End If
    ActiveCell.Offset(0, 9).Select
    acitvecell.Value = Date
Else 'do nothing
End If

---

我正在绞尽脑汁使用查找公式查找正确的单元格，然后将数据放入其中，我想我会处理好的。请将您的代码与初始问题合并，使其可读。那么您有什么问题吗？您在

acitvecell.value=Date

上有一个打字错误，应该读取

ActiveCell.value=Date

这一行以及上面的那一行也可以组合使用以删除

Select

语句。如果您解释问题的确切位置，可能有人可以为您提供更多帮助