Dim i，j，k，temp，a（510）為整數
Dim Str，b（510）作為字符串
str = Range（“b5“）& amp。範圍（“c5”）
j = 0
For i = 1到Len（Str）
If i =工作表函數。find（Mid（Str，I，1），Str，1）然後
temp = Len（Str）-Len（Replace（Str，Mid（Str，I，1）““））
j = j + 1
k = j
當（k）
如果溫度& gt那好吧
a（k+1）= a（k）
b（k+1）= b（k）
溫度
b（k）= Mid（Str，I，1）
如果…就會結束
k = k - 1
行
如果…就會結束
然後
對於k = 1到j
範圍（Chr（k+97）和“2“）= b（k）
範圍（Chr（k+97）和“3“）= a（k）
然後