主题：请教高手这个自动输入的公式怎么编写？(已解决)

不难，就是有点复杂，思路：

根据要求，不断的拼接字符串，直到完成

给个简单的代码，例如：

Dim s1 As String ="IIAC32X20"
Dim s3 As String
If left(s1,3)="III" Then
  s3="03"
  s1=s1.SubString(3)
Else
s3="02"
s1=s1.SubString(2)
End If
s3=s3 & iif(left(s1,1)="A","1",iif(left(s1,1)="B","2",IIF(left(s1,1)="C","3","4")))
s1=s1.SubString(1)
s3=s3 & iif(left(s1,1)="C","1","2")
s1=s1.SubString(1)

Output.Show("s1 = " & s1)
Output.Show("s3 = " & s3)

后面的你按要求继续完成，我对FOXTABLE的函数不熟，如果有字符串函数大全做参考，应该更容易些（我用我只知道的函数完成）