EXCEL公式高手请进

情况如下：B2内容为“第一小组”，B3内容为“第二小组”，B4内容为“第三小组”，……类推至B40内容为“第三十九小组”。要求：在A1-A40范围内任意一个单元格内输入a1，则自动替换为“第一小组”，输入a2，则自动替换为“第二小组”，类推。。请高手指点。。

鼠标右键点下面工作表的名字（如Sheet1），查看代码，在新窗口总粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 And Target.Row < 42 Then Target.Offset(-1, 0) = Replace(Target.Offset(-1, 0), "a", "第") & "小组"
End Sub

回到excel，输入a3等后，回车，会跳到下一格，实现功能。

vba 法

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Row < 41 Then Target.Value = Cells(Mid(Target.Value, 2, 100), 2) End Sub