當前位置:我的異常網? 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

文章評論

總結

以上是生活随笔為你收集整理的vba转换为vbs的方法_vba代码改成vbs,该怎么解决(4)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。