0

我有一个 Excel 工作簿（让我们调用 serial_numbers），其中包含一个 S/N 列表（A1可以A10或多或少）。

现在我必须在工作簿“数据库”上搜索A1' 值。该值通常在A1工作簿“数据库”的单元格中找到。

如果我找到A1' 值，我需要复制并粘贴B2' 工作簿“数据库”的值，该值包含该值的当前库存。

通过 Excel 上的开发人员模式，我得到以下结果：

Sub Macro1()
'
' Check stock for S/N in database
'

'
    Range("A1").Select
    Selection.Copy
    Workbooks.Open Filename:="database.xlsx", _
        UpdateLinks:=0
    Range("A1").Select
    Selection.Find(What:="XXXXXX", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("serial_numbers.xlsx").Activate
    Range("B1").Select
    ActiveSheet.Paste
End Sub

上面的那部分似乎不能正常工作，因为我是新手，所以我不明白为什么。你们中的任何人都可以帮助我吗？

4

1 回答 1

0

如果您正在寻找非 vba 解决方案，那么您可以选择vlookup function.

试试这个代码：

Sub testMacro()

    Dim wkbDB As Workbook
    Dim rngFind As Range, rngSearch As Range, cell As Range
    Dim shtDB As Worksheet


    Set wkbDB = Workbooks.Open(Filename:="C:\database.xlsx", UpdateLinks:=0)
    Set shtDB = wkbDB.Sheets("Sheet1")

    Set rngSearch = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")

    For Each cell In rngSearch
        Set rngFind = shtDB.Range("A1:A10").Find(What:=cell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)

        If Not rngFind Is Nothing Then
            'serial_numbers.xlsx
           cell.Offset(0, 1) = rngFind.Offset(0, 1)
        End If
    Next
End Sub
于 2013-10-01T01:57:01.163 回答