Vba Excel-使用导入的数据进行查找

在Excel工作手册中，我有两个选项卡。 1已从其他工作簿导入数据。 另一个我正在尝试做一个vlookup，根据第一个工作簿中的数据填充一些单元格。 但是，vlook不起作用，直到我查看导入的数据，选择单元格并按enter键。第一个工作表中的数据将根据其引用的工作簿进行更新和更改。 有没有一种方法可以在不手动点击所引用单元格上的enter键的情况下使v查找工作

我的Vlook up功能是：

VLOOKUP（B4，CAPA！A:AU，3，FALSE）

要确认-公式中的计算设置为自动

是否需要在打开文档后5秒执行其他要求？我补充说

Private子工作簿\u Open（），
Application.OnTime Now+TimeValue（“00:00:10”），“测试”
末端接头

但是，在运行代码时，会显示一个错误，说明宏不存在或宏已被禁用（以确认宏已启用并受信任）

---

非常感谢

好的，您可能需要将导入的数据从文本转换为列。有点像在黑暗中拍摄，但如果是这种情况，请根据相关情况更换下面的rngTargetCols，这样应该可以工作-

Sub test()

    Dim rngTargetCols As Range
    Set rngTargetCols = Sheets("sheet1").Range("A:AU")
    Dim intIndex As Integer

    For intIndex = 1 To rngTargetCols.Columns.Count
        On Error Resume Next
        TextToColumnsFix rngTargetCols.Columns(intIndex)
        On Error GoTo 0
    Next

End Sub

Sub TextToColumnsFix(r As Range)

    With r
        .TextToColumns Destination:=.Worksheet.Cells(1, .Column), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(1, 1), TrailingMinusNumbers:=True
    End With

End Sub

---

也许可以试试床单之类的东西。计算？对不起，也许我不明白。。我想我可能会有一个更好的答案，will post belowI无法用您提供的信息重现您的问题。请阅读帮助页面以了解有关的信息；而且我已经实现了所提供的代码（谢谢），但是可以让它在自动打开文档几秒钟后启动吗？（请参阅上面的注释）等待10秒添加：Application.wait（现在+时间值（“0:00:10”））