当前位置:我的异常网» VB » vba代码改成vbs,该怎么解决

vba代码改成vbs,该怎么解决(4)

www.myexceptions.net  网友分享于：2013-01-30  浏览：58次

i_count   =   i_count   -   1

Else

Rows(i   +   n   +   1).Insert

insert_count   =   insert_count   +   1

last_insert   =   y

End   If

End   If

End   If

'End   If

n   =   n   +   1

If   s_string   =   1   Then   Cells(i   +   n,   y).Value   =   "--- "   Else   Cells(i   +   n,   y).Value   =   Left(Cells(i,   y),   WorksheetFunction.Find( "||| ",   Cells(i,   y),   1)   -   1)

Cells(i,   y).Value   =   Right(Cells(i,   y),   Len(Cells(i,   y))   -   WorksheetFunction.Find( "||| ",   Cells(i,   y),   1)   -   2)

End   If

Loop

End   If

Next

If   i_count   >   0   Then

Rows(i   +   i_count   +   1).Insert

For   u   =   1   To   ActiveSheet.UsedRange.Columns.Count

Cells(i   +   i_count   +   1,   u).Value   =   Cells(i,   u)

If   fill(u)   =   True   Then

For   r   =   1   To   i_count

Cells(i   +   r,   u).Value   =   Cells(i,   u)

Next

End   If

Next

Rows(i).Delete

文章评论