问题补充：

最佳回答：

要用工作表事件程序例：当在A列输入1、2或者3时，同行B列单元格出自动赋值2、4或者6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Text
Case 1
Range("B" & Target.Row) = 2
Case 2
Range("B" & Target.Row) = 4
Case 3
Range("B" & Target.Row) = 6
End Select
End If
End Sub

方法1：上面的程序可以达到你的目的，只是ABC数据对应关系要先在程序中体现，修改如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Text
Case 1
Range("B" & Target.Row) = “软件"
Range("C" & Target.Row) = “Excel”
Case 2
Range("B" & Target.Row) = "硬件"
Range("C" & Target.Row) = “联想”
Case 3
Range("B" & Target.Row) = 6
End Select
End If
End Sub
方法2：你要先在Sheet2输入ABC列对应数据，然后在Sheet1 用vlookup函数引用。

方法2：使用VLOOKUP 函数。
Sheet2 A1:C3 输入
1 软件 Excel
2 硬件 联想
3 x y
Sheet1 A1,B1,C1输入
1 =VLOOKUP(A1,Sheet2!A1:C3,2) =VLOOKUP(A1,Sheet2!A1:C3,3)

其他回答：