如果只有A1~A12的话,可以这样写
Select 表
Scan
For i=1 To 12
s="A"+Transform(i)
If &s>0 And i>1
s1="A"+Transform(i-1)
Replace B1 With &s - &s1
Endif
Next
Endscan