Question

您好我是该表单的新手，并且在创建在A2中用户选择的案例上执行vlookup的VBA时遇到问题。在附加的示例中，值根据选择在某些单元格（D2-F2）中发生变化，但是公式结果，因此我不能在以后执行选择案例，因为没有值，只有公式。该值确实出现在B2和C2中，但在用户选择不同的情况时不会更改。谢谢。

https://app.box.com/s/qrs0r5gf0vth6wpbj1w9

'  Step 3 Add additional selection information
Dim LastRowNo As Long
LastRowNo = Cells(Rows.Count, "CA").End(xlUp).Row

Worksheets("annovar").Range("B2").Value = Evaluate("=VLOOKUP(A2,CA5:CB" & LastRowNo & ",2,0)")
Worksheets("annovar").Range("C2").Value = Evaluate("=VLOOKUP(A2,CA5:CC" & LastRowNo & ",3,0)")
Worksheets("annovar").Range("D2").Formula = "=IFERROR(VLookup(A2,CA5:CD" & LastRowNo & ",4,0),"""")"
Worksheets("annovar").Range("E2").Formula = "=IFERROR(VLookup(A2,CA5:CE" & LastRowNo & ",5,0),"""")"
Worksheets("annovar").Range("F2").Formula = "=IFERROR(VLookup(A2,CA5:CF" & LastRowNo & ",6,0),"""")"

Answer 1

检查您在VLOOKUP中使用的范围。我想你可能正在寻找错误的专栏。 Column("CA")中没有任何内容，因此LastRowNo = 1和Range("CA5:CB1")为空。我认为您要查找的信息位于Range(BP8:BQ12")，因为您每次运行时都会插入和删除行。

每次运行宏时创建新工作表或清除其他工作表会不会更好？那样代码不会那么尴尬吗？

VBA vlookup没有改变价值观

1 个答案: