[求助]这个关于字符的代码怎么优化

VBExcel

For mmm = 1 To 8
xx = Sheet1.Cells(3, mmm).Value
If xx = "A" Then
mm = "(0,1,0)"
ElseIf xx = "B" Then
mm = "(1,2,0)"
ElseIf xx = "C" Then
mm = "(2,3,0)"
ElseIf xx = "D" Then
mm = "(3,4,0)"
ElseIf xx = "E" Then
mm = "(4,5,0)"
ElseIf xx = "F" Then
mm = "(5,6,0)"
ElseIf xx = "G" Then
mm = "(6,7,0)"
ElseIf xx = "H" Then
mm = "(7,8,0)"
ElseIf xx = "I" Then
mm = "(8,9,0)"
ElseIf xx = "J" Then
mm = "(9,10,0)"
ElseIf xx = "K" Then
mm = "(10,11,0)"
ElseIf xx = "L" Then
mm = "(11,12,0)"
ElseIf xx = "M" Then
mm = "(12,13,0)"
ElseIf xx = "a" Then
mm = "(0,1,2,0)"
ElseIf xx = "b" Then
mm = "(1,2,3,0)"
ElseIf xx = "c" Then
mm = "(2,3,4,0)"
ElseIf xx = "d" Then
mm = "(3,4,5,0)"
ElseIf xx = "e" Then
mm = "(4,5,6,0)"
ElseIf xx = "f" Then
mm = "(5,6,7,0)"
ElseIf xx = "g" Then
mm = "(6,7,8,0)"
ElseIf xx = "h" Then
mm = "(7,8,9,0)"
ElseIf xx = "i" Then
mm = "(8,9,10,0)"
ElseIf xx = "j" Then
mm = "(9,10,11,0)"
ElseIf xx = "k" Then
mm = "(10,11,12,0)"
ElseIf xx = "l" Then
mm = "(11,12,13,0)"
ElseIf xx = "" Or xx = 0 Then
mm = "(0)"
Else
mm = "(" & xx & ",0)"
End If
If mmm = 1 Then
m1 = mm
ElseIf mmm = 2 Then
m2 = mm
ElseIf mmm = 3 Then
m3 = mm
ElseIf mmm = 4 Then
m4 = mm
ElseIf mmm = 5 Then
m5 = mm
ElseIf mmm = 6 Then
m6 = mm
ElseIf mmm = 7 Then
m7 = mm
ElseIf mmm = 8 Then
m8 = mm
End If
Next mmm
s = 2 & m1 & "*" & 3 & m2 & "*" & 5 & m3 & "*" & 7 & m4 & "*" & 11 & m5 & "*" & 13 & m6 & "*" & 17 & m7 & "*" & 19 & m8

烦恼优化一下

对变量定义也不太会，

VBExcel

对不起，发错地方了

konggs

呵呵，一样的。为什么不自己想呢？