VBA vlookup不更改值

您好，我是表单新手，在创建VBA时遇到了问题，该VBA在A2中对用户选择的案例执行vlookup。在所附的示例中，某些单元格D2-F2中的值会根据选择而改变，但公式会产生结果，因此我以后无法执行选择案例，因为没有值，只有公式。该值确实出现在B2和C2中，但在用户选择不同的案例时不会改变。多谢各位

---

检查你在VLOOKUP中使用的范围。我想你可能找错栏目了。列CA中没有任何内容，因此LastRowNo=1和RangeCA5:CB1为空。我认为您要查找的信息在BP8:BQ12范围内，因为每次运行时都会插入和删除行

每次运行宏时创建新工作表或清除不同的工作表不是更好吗？这样代码就不会这么麻烦了？

我以后无法执行select案例，因为没有值，只有一个公式。我认为你错了。单元格可以有.Formula和.Value，还可以有.Text属性。

'  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),"""")"