我有一个用户表单,用于从特定行中提取信息。用户表单使用vlookup使用A列中的数字查找行。
在用户表格中显示表格中的数据后:
然后,如果列中的单元格不为空,请移动到下一个空闲列并将其插入那里。
我希望我的问题很明确。
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