Dim str1作為字符串
將str2標註為字符串
Dim N壹樣長
暗淡的我只要
Dim j壹樣長
Dim k壹樣長
將a（0到3）設為整數
將m設為整數
str1 =範圍（“B1“）
n = Len（str 1）
對於i = 1到N
j =（I-1）Mod 4
a（j）= Mid（str 1，I，1）
如果j = 3，那麽
對於k = 0到2
如果a（k）》1；a（k+1）然後
m = a（k）
a（k）= a（k+1）
a（k+1）= m
如果…就會結束
下壹個k
對於k = 0到1
如果a（k）》1；a（k+1）然後
m = a（k）
a（k）= a（k+1）
a（k+1）= m
如果…就會結束
下壹個k
如果a（0）》0；a（1）然後
m = a（0）
a（0）= a（1）
a（1）= m
如果…就會結束
str 2 = a（0）& amp；a（1）和ampa（2）和amp第三條
單元格（i \ 4 + 1，2）= str 2
如果…就會結束
接下來我
末端接頭