急/EXCEL 中 如何用VBA 实现 查询功能请看附件

在回忆中的记忆

关于SELECT 命令

急

方漠

VIN字段是否唯一?如果是,用VLOOKUP即可.

在回忆中的记忆

VLOOKup  不是只能返回指定的一列吗?

如果我的很多行数据如何实现.用VIN或车牌号调出相应的所有数据.

xyg0214

[em01]dddddddddddd

ninar

Sub searchVIN()
    Set mysheet = Workbooks("book.xls").Sheets(1)
    Set searchsheet = Workbooks("book.xls").Sheets(2)
' find last Range in sheet1
    mysheet.Select
    lastrange = 7
        Do While Not (IsEmpty(mysheet.Cells(lastrange, 1).Value))
        lastrange = lastrange + 1
        Loop
'find last Range in sheet2
    searchsheet.Select
    lastcell = Range("a1").End(xlDown).Row
'search beginn
    For i = 2 To lastcell
        If mysheet.Range("D25").Value = searchsheet.Range("k" & i).Value Then
        Range(Cells(i, 1), Cells(i, 9)).Select
        Selection.Copy
        mysheet.Select
        Cells(lastrange, 1).Select
        ActiveSheet.Paste
        lastrange = lastrange + 1
        searchsheet.Select
        Application.CutCopyMode = False
    End If
    Next

ninar

LZ to test