生成保险费

生成保险费.vbs

Sub 保险费()
'
' 宏5 宏
'
    selectionColumnCount = Selection.Count
    For i = 1 To selectionColumnCount
    ActiveCell.Value = "保险费、车船税来票-售后回租 专" & ActiveCell.Value
    ActiveCell.Offset(1, 0).Range("A1").Select
    Next
    
End Sub