繁体   English   中英

Excel-Vlook与导入的数据

[英]Excel - Vlook up with Imported data

在Excel工作簿中,我有2个标签。 1已从另一个工作簿导入数据。 我正在尝试进行另一个vlookup,以根据第一个工作簿中的数据填充一些单元格。 但是,vlook up不起作用,直到我查看导入的数据,选择单元格并按Enter。 第一个工作表中的数据将根据其引用的工作簿进行更新和更改。 有没有一种方法可以使v查找工作而无需手动在引用的单元格上按Enter键?

我的Vlook up函数是:

VLOOKUP(B4,CAPA!A:AU,3,FALSE)

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

附加要求在打开文件后执行5秒? 我添加了Private Sub Workbook_Open(), Application.OnTime Now + TimeValue("00:00:10"), "test" End Sub

但是,在运行代码时,将显示错误消息,指出宏不存在或宏已被禁用(以确认宏已启用并受信任)

非常感谢

正确,您可能需要将导入的数据从文本转换为列。 有点黑暗,但是如果是这样的话,请替换下面的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

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM