编写一个位于excel中的VBA模板，对名为book1.xls的工作薄下的sheet1工作表中的A1:B10单元格作如下转化：如果单元格内容为A或a,则转为数字5，如果单元格内容为B或b,则转为数字4，如果单元格内容为C或c,则转为数字3，如果单元格内容为D或d,则转为数字2，如果单元格内容为E或e,则转为数字1,否则转为0。将这20个数求平均，值存于单元格A11中。

新建一个宏，里面写：
Sheet1.Activate
Dim Ra1 As Range
Dim m As Integer, n As Integer
Dim tmp As Integer

Set Ra1 = Range("a1:b10")
For m = 1 To Ra1.Rows.Count
For n = 1 To Ra1.Columns.Count
tmp = Asc(LCase(Ra1.Cells(m, n).Value))
If tmp >= 97 And tmp <= 101 Then
Ra1.Cells(m, n).Value = 102 - tmp
Else
Ra1.Cells(m, n).Value = 0
End If
Next
Next