如何不用建源数据方式，通过附值方式vlookup?

sixhero

事情是这样的，有很多物料型号，但大类却只有十几种，比如FIS1234-000101和FIS****-******,都属一个大类即FIS（或用中文表示）即每个物料前三个大写字母即代表物料大类，我想是不是可以通过附值方式？不想用函数VLOOKUP或INDEX，所以用宏！本人不会附值，请问达人，怎样做呢？挺急的！谢谢！how.rar

sixhero

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 2) = Application.WorksheetFunction.vlookup(******)
End If
End Sub
以这样的方式自动匹配！

sixhero

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 2) = Application.WorksheetFunction.Left(Range("a2:a" & Target.Row), 3)
End If
End Sub
这样为什么不行？

sixhero

物料型号                                  名称
FIS1234-000101                =IF(LEFT(A2,3)="FIS","FIS",IF(LEFT(A2,3)="AMZ","磁铁",IF(LEFT(A2,3)="FFF","合金")))
AMZ1122-123456
FFF1321-112234
FIS1122-123456
AMZ1022-123400

sixhero

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Sheets(2).Select
Target.Offset(, 2) = Application.WorksheetFunction.VLookup((Range("a2" & Target.Row)), Sheets(2)!Range("a:b") & Target.Row, 2 & Target.Row)
End If
End Sub
这样也不行！啊

sixhero

对附件，我重新修改了一下，我不想用函数，能不能不用sheet2啊，在sheet1A列输完后，sheet2B列就自动显示名称？

sixhero

再重新修改了附件javascript:;