明细账-进项税

Sub MXZ进项税()
Dim sj, n, m, h, a%, b%
h = Cells(Rows.Count, "g").End(xlUp).Row
'MsgBox h
b = 1
Set reg = CreateObject("vbscript.regexp")
With reg
    .Global = True
    .Pattern = "\d{8}"
    For i = 3 To h
        ss = Cells(i + a, "g")
        Set sj = .Execute(ss)
        Range("i" & i + a) = sj.Count
        If .test(ss) Then
            If sj.Count >= 2 Then
                For Each ss1 In sj
                    If b > 1 Then
                        Rows(i + a + 1).Insert
                        a = a + 1
                    End If
                    Range("h" & i + a) = "'" & ss1
                    b = b + 1
                Next ss1
            Else
                Range("h" & i + a) = "'" & sj(0)
            End If
            b = 1
        End If
    Next i
    
End With
Cells(1, "a").Select
Cells(3, "f").Select
ActiveWindow.FreezePanes = True
Range("a1:z" & h + a).AutoFilter
Range("n:q").NumberFormat = "#,#.00"

End Sub