当前位置:我的异常网» 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
文章评论