请帮帮我，vba查找非空行插入！

friend911

工程.zip (17.11 KB, 下载次数: 11)

2012-5-24 15:48 上传

点击文件名下载附件 如何能做到在建筑表内寻找非空行并插入总表对应的第一部分和第二部分之间？
代码如下

Sub c4()
  Dim x%, y%
  For x = 5 To 50
    If Sheet17.Cells(x, 2) <> "" Then
      Sheet18.Rows(x + 1).Insert
      Sheet18.Cells(x + 1, "a") = Sheet17.Cells(x, "b")
      Sheet18.Cells(x + 1, "c") = Sheet17.Cells(x, "c")
    End If
  Next x
End Sub

friend911

工程表里的数据是比较多的，只是举例了一下，看看能否做到

zjdh

工程表里的数据要怎样插入到总表？你应该做个样表好理解一点。

jason940

看看              

friend911

就是插入第一部分和第二部分之间，很好理解啊，怎么没人会么？