vba vlookup来填充工作表

我有一个用户combobox和一个提交button，用户从下拉列表中的第一个空行工作表进入的用户表单。comboboxvba工作正常。 但是，例如，如果在单元格C2中inputcombobox的select（因为第一个空行是2，并且C isalwayscomboboxinput结果的列）我想在列D中有VBA中的查找公式，基于在列C中自动填充相同时间列D上的内容。就像在列C中根据列C中的值拖动查找公式一样

这是我到目前为止，但它不起作用。 vlookup部分似乎不工作。 我错过了什么吗？

With Sheets("TasksData").Range("D2", Sheets("TasksData").Cells (Rows.Count, "D").End(xlUp)) .Offset(, 1).Formula = "=VLOOKUP(C" & .Row & ",'ValidationTables'!$L:$M,2,FALSE)" .Offset(, 1).Value = .Offset(, 1).Value End With 

Answer 1

你的With声明对我来说看起来有点小。 你有错误吗？

试试这个：

 Dim lastRow With Sheets("TasksData") lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row With .Range(.Cells(2, 3), .Cells(lastRow, 3)) .Offset(, 1).FormulaR1C1= "=VLOOKUP(RC[-1],'ValidationTables'!C12:C13,2,FALSE)" .Offset(, 1).Value = .Offset(, 1).Value End With End With