[已解决]双条件提取整行数据，谢谢！

feiaoli

本表相应单元格中如何设置公式：当 科目汇总 工作表一行中S列+T列<>0的时候，提取 科目汇总 工作表的科目级次为1的该行的到本工作表。

如下图：

如附件：

谢谢grf1973 老师！

最佳答案

月排行榜 / 总排行榜

zyouong

2017-1-21 10:18

双条件提取整行数据.rar (8.18 KB, 下载次数: 20)

2017-1-21 10:18 上传

点击文件名下载附件

跳转到最佳答案楼层

grf1973

1. Sub 提取()
   
2.     arr = Sheets(1).Range("a6:ab" & Sheets(1).[b65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 6) = 1 And arr(i, 19) + arr(i, 20) <> 0 Then
   
6.             n = n + 1
   
7.             For j = 1 To UBound(arr, 2)
   
8.                 brr(n, j) = arr(i, j)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     If n > 0 Then Sheets(2).[a6].Resize(n, UBound(brr, 2)) = brr
    
13. End Sub
    

复制代码

feiaoli

grf1973 发表于 2017-1-20 14:50

谢谢老师！我是在原有一个小程序的基础上修改的，需要一个函数公式，可以修改一下吗？

zyouong

双条件提取整行数据.rar (8.18 KB, 下载次数: 20)

2017-1-21 10:18 上传

点击文件名下载附件

feiaoli

zyouong 发表于 2017-1-21 10:18

谢谢老师，收藏了！

新世外桃源

grf1973 发表于 2017-1-20 14:50

学习了，谢谢分享。