，100份求救！处理一excel数据文件，怎样将这个excel中的某一行在满.

各位大哥，100份求救！处理一excel数据文件，怎样将这个excel中的某一行在满.....
100份求救！已有一excel数据文件，怎样将这个excel中的某一行在满足

某一条件时，在当前的位置复制3行后插入？这一行后面的数据依次向后

排列....
该如何处理呢？分必给！！！！


------解决方案--------------------

关键代码.在需要的地方加个判断
Set exlapp = New excel.Application
Set exlbook = exlapp.Workbooks.Add
exlapp.Workbooks.Open App.Path & "\DataBase\ReportForm "

exlapp.Visible = True
Set exlsheet = exlbook.Worksheets(1)
exlapp.Sheets(1).Cells(20, "b ") = " "
For num = 4 To 7
exlapp.Sheets(1).Cells(num, "b ") = " "
exlapp.Sheets(1).Cells(num, "f ") = " "
exlapp.Sheets(1).Cells(num, "i ") = " "
Next
------解决方案--------------------
假如满足条件的行号是5，如下即可满足你的需求。

For i = 1 To 3
Rows( "5:5 ").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Next
------解决方案--------------------

For i = 1 To Sheet1.UsedRange.Rows

if 符合条件 then

'在符合条件行下面插入三空行
Sheet1.Rows(i + 1).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown

'复制符合条件行
Sheet1.Rows(i).Select
Selection.Copy
'在下面连续复制三行
Sheet1.Rows(i + 1).Select
ActiveSheet.Paste
Sheet1.Rows(i + 2).Select
ActiveSheet.Paste
Sheet1.Rows(i + 3).Select
ActiveSheet.Paste

end if

Next i


------解决方案--------------------
呵呵，这个你自己看一下excel对象模型就知道怎么用了

所有跟excel相关的问题基本上都可以解决