[已解决]提取不同工作表满足条件的行代码求指点

千年约定

要提取不同工作表满足条件的行到“汇总”工作表，请指点一下代码错在哪里，详见附件。

最佳答案

月排行榜 / 总排行榜

xdragon

2014-9-7 17:32

1. Sub 提取()
   
2.     Dim sh As Worksheet, i2&, num&
   
3.     For Each sh In Sheets(Array("土", "前", "建", "基", "开"))
   
4.         num = sh.Range("I65536").End(xlUp).Row
   
5.         For i2 = 2 To num
   
6.             If Sheets(sh.Name).Cells(i2, "i").Value <> "0" And Sheets(sh.Name).Cells(i2, "i").Value <> "" Then
   
7.                 Sheets(sh.Name).Rows(i2).Copy
   
8.                 Sheets("汇总").Cells(Sheets("汇总").Cells(Rows.Count, "i").End(xlUp).Row + 1, 1).PasteSpecial
   
9.             End If
   
10.         Next i2
    
11.     Next sh
    
12. End Sub

复制代码

在你原代码的基础上改的，错误的地方有：
1、sh为工作表对象，所以sheets(sh)这样表示不对，sh.name才是工作表的名称属性
2、对num的赋值过程中，不是activesheet而是每个sh的单元格对象，range("D65536")改为了i列
3、最后你要粘贴到的是汇总表的最后一个非空单元格的下一行，而你的判断依据是I列非空做判断，所以，可以不用point变量。
4、sheets(sh).row(i2).select 如果不是活动的工作表是无法用select的。

跳转到最佳答案楼层

xdragon

1. Sub 提取()
   
2.     Dim sh As Worksheet, i2&, num&
   
3.     For Each sh In Sheets(Array("土", "前", "建", "基", "开"))
   
4.         num = sh.Range("I65536").End(xlUp).Row
   
5.         For i2 = 2 To num
   
6.             If Sheets(sh.Name).Cells(i2, "i").Value <> "0" And Sheets(sh.Name).Cells(i2, "i").Value <> "" Then
   
7.                 Sheets(sh.Name).Rows(i2).Copy
   
8.                 Sheets("汇总").Cells(Sheets("汇总").Cells(Rows.Count, "i").End(xlUp).Row + 1, 1).PasteSpecial
   
9.             End If
   
10.         Next i2
    
11.     Next sh
    
12. End Sub

复制代码

在你原代码的基础上改的，错误的地方有：
1、sh为工作表对象，所以sheets(sh)这样表示不对，sh.name才是工作表的名称属性
2、对num的赋值过程中，不是activesheet而是每个sh的单元格对象，range("D65536")改为了i列
3、最后你要粘贴到的是汇总表的最后一个非空单元格的下一行，而你的判断依据是I列非空做判断，所以，可以不用point变量。
4、sheets(sh).row(i2).select 如果不是活动的工作表是无法用select的。

su45

咱就是去喝了点水，就慢了点：

提取不同工作表满足条件的行.zip (22.58 KB, 下载次数: 5)

2014-9-7 17:46 上传

点击文件名下载附件

zjdh

既然有
For Each sh In Sheets(Array("土", "前", "建", "基", "开"))
何必
If Sheets(sh.Name).Cells(i2, "i").Value <> "0" And Sheets(sh.Name).Cells(i2, "i").Value <> "" Then
这样就可以啦
If sh.Cells(i2, "i").Value <> "0" And sh.Cells(i2, "i").Value <> "" Then