vba转换为vbs的方法_vba代码改成vbs,该怎么解决(3)

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

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

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

End   If

Next

End   Sub

修改之后的代码(会报错)

Dim   fill()

ReDim   fill(1   To   Sheets(0).UsedRange.Columns.Count)

For   i   =   Sheets(0).UsedRange.Rows.Count   To   1   Step   -1

DoEvents

insert_count   =   0

last_insert   =   0

For   y   =   1   To   Sheets(0).UsedRange.Columns.Count

n   =   0

If   Len(Cells(i,   y))   > =   1   Then

If   last_insert   <>   y   Then   i_count   =   insert_count

s_string   =   0

s_string   =   WorksheetFunction.Find( "||| ",   Cells(i,   y),   1)

If   s_string   =   0   And   Len(Cells(i,   y).Value)   >   0   Then   fill(y)   =   True   Else   fill(y)   =   False

Do   While   True

s_string   =   0

s_string   =   WorksheetFunction.Find( "||| ",   Cells(i,   y),   1)

If   s_string   <>   0   Then

If   last_insert   =   0   Then

Rows(i   +   n   +   1).Insert

insert_count   =   insert_count   +   1

last_insert   =   y

Else

If   last_insert   =   y   Then

Rows(i   +   n   +   1).Insert

insert_count   =   insert_count   +   1

last_insert   =   y

Else

If   i_count   > =   1   Then

文章评论