VBA问题

TonyCoding

我写了个公式:IF(AND(MID(A2,8,1)="0",RIGHT(A2,1)="0"),"",IF(MID(A2,8,1)="0",LEFT(A2,7)&"-"&RIGHT(A2,1),MID(A2,8,1)&"-"&LEFT(A2,7)&"-"&RIGHT(A2,1))),想把它用代码写出来, 但下面写出来的代码是错误的, 万望各位大侠指正
Sub t1()
Dim x As Integer
For x = 1 To 5000
if mid(range("A"&x),8,1)="0" and right("A"&x),1)="0" then
   Range("b" & x).Value = ""
ElseIf Mid(Range("A" & x), 8, 1) = "0" And Right("a" & x) <> "0" Then
   Range("b" & x).Value = Left(Range("A" & x), 7) & "-" & Right(Range("a" & x), 1)
Else
  Range("b" & x).Value = Mid(Range("A" & x), 8, 1) & "-" & Left(Range("A", 7) & "-" & Right(Range("A" & x), 1))
  End If
  Next End sub

该贴已经同步到 TonyCoding的微博

136211828

LZ上传个附件