如何使用VBA表单将数据输入excel工作表中的某些单元格?

如何使用VBA表单将数据输入excel工作表中的某些单元格?,vba,excel,Vba,Excel,我正在使用excel,使用vba表单将数据输入到工作表中。excel是由数据录入员手动输入的,我计划让用户使用VBA表单轻松地输入它 我已经完成了VBA表单,它有一些文本框,如公司流动性、股权等。我的情况是,我需要为已经具有特定格式(流动性、权益等)的每个文本框输入值 条件是liquidity中的某些列和行已被键入,我想继续一些他尚未键入的缺少的行。 假设他在1列中输入了50行,但在第2列中,他只在下面输入了30行。现在我想输入第31行的第2列 用户如何才能找到所需的缺失单元格进行键入 因为我的

我正在使用excel,使用vba表单将数据输入到工作表中。excel是由数据录入员手动输入的,我计划让用户使用VBA表单轻松地输入它

我已经完成了VBA表单,它有一些文本框,如公司流动性、股权等。我的情况是,我需要为已经具有特定格式(流动性、权益等)的每个文本框输入值

条件是liquidity中的某些列和行已被键入,我想继续一些他尚未键入的缺少的行。 假设他在1列中输入了50行,但在第2列中,他只在下面输入了30行。现在我想输入第31行的第2列

用户如何才能找到所需的缺失单元格进行键入

因为我的VB表单只能使用我的VB表单的示例代码键入最低的第1列

Dim lRow as long
Dim ws as Worksheet
Set ws = Worksheets("Summary")
lrow = ws.Cells(Rows.Count, 1).End(xlup).Offset(1,0).Row
with ws 
.cells(lRow,1).Value = Me.txtNo.Value

有人建议我使用Vlookup,但我仍然坚持使用它。有什么建议吗?非常感谢您的帮助

使用
.End(xlUp)属性
似乎没有问题,但您需要为正确的列触发它,对于B列,请使用
…单元格(Rows.Count,2)。End(xlUp)…
如果用户不想键入列中的第一个空单元格,您可能需要添加另一个控件,以允许它们选择该列中的特定行(最大值)