简单问题，请高手帮忙

[zjwtt]

如何用VBA在excel里进行2次查找？
如何在book.xls的子表sheet1中查找出2条name,取name的偏移量是1,1的2个对应值，把2项值赋值给子表sheet2中的某一项？我已经查找出第一条，如何查找第二条name?
指令是什么？
Workbooks("book.xls").Worksheets("sheet1").Cells.Find(What:="name", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(1, 1).Copy
Workbooks("book.xls").Worksheets("sheet2").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

[acev]

不懂vba,晚上高手较多，帮你推一下。