[已解决]把符合条件的单元格相应复制在另一个工作表中

colour250

请问各位老师这个怎么做？最好是公式可以代替，

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-2 02:09

跳转到最佳答案楼层

心正意诚身修

1. Sub 条件查询()
   
2. Dim ARR, BRR(), I As Integer, J As Integer, K As Integer
   
3. ARR = Sheets("付款明细").Range("a1").CurrentRegion
   
4. J = UBound(ARR, 2)
   
5. ReDim BRR(1 To UBound(ARR), 1 To 2)
   
6. For I = 2 To UBound(ARR)
   
7. If ARR(I, J) < 0 Then
   
8.    K = K + 1
   
9.    BRR(K, 1) = ARR(I, 1)
   
10.    BRR(K, 2) = ARR(I, J)
    
11. End If
    
12. Next
    
13. Range("A3").Resize(K, 2) = BRR
    
14. End Sub
    

复制代码

公式的话可以用一对多查找的公式。找位置的话。可以用OFFSET+MATCH函数，如果你喜欢用公式的话。可以百度一下一对多查找的公式。
我用的代码的方式。

cutecpu

colour250

cutecpu 发表于 2021-11-2 02:09

非常感谢老师，太好了。

colour250

心正意诚身修 发表于 2021-11-1 23:20
公式的话可以用一对多查找的公式。找位置的话。可以用OFFSET+MATCH函数，如果你喜欢用公式的话。可以百度 ...

感谢老师的帮助 ，你的代码也让我受益非浅，从中也学习到好多东西，谢谢！