数据查找 然后写入其它表

mqj80

     想把满足条件的数据写入到其它表里                详见附件 谢谢大家帮忙！！！
路过的高手们都给看看 谢谢！！！
目的把“进行中”的记录写到表2   但是又不是把全部“进行中”的记录都写入表2  存在相同“业务号”的就不写入表2了 。像我表里打了黄色的两条记录

lsc900707

你的筛选依据到底是业务员编号还是单据状态呀，让你让晕了。

mqj80

单据号吧这个没有重复，谢谢

不知道为什么

mqj80 发表于 2018-7-12 18:52
单据号吧这个没有重复，谢谢

代码供测试

1. Sub test()
   
2.     Dim Rng As Range, TopRow&
   
3.     With Sheet1
   
4.         arr = .[a1].CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             If arr(i, 2) = "003" Then
   
7.                 If Rng Is Nothing Then
   
8.                     Set Rng = Range("a" & i).Resize(1, UBound(arr, 2))
   
9.                 Else
   
10.                     Set Rng = Union(Rng, Range("a" & i).Resize(1, UBound(arr, 2)))
    
11.                 End If
    
12.             End If
    
13.         Next i
    
14.     End With
    
15.     With Sheet2
    
16.         If Not Rng Is Nothing Then
    
17.             TopRow = .Cells(.Rows.Count, 2).End(3).Row + 1
    
18.             Rng.Copy .Range("a" & TopRow)
    
19.         End If
    
20.     End With
    
21. End Sub
    

复制代码

mqj80

不知道为什么 发表于 2018-7-12 19:03
代码供测试

按这个执行 004这条记录无法被写到sheet2表里

不知道为什么

mqj80 发表于 2018-7-12 19:54
按这个执行 004这条记录无法被写到sheet2表里

那我就不明白你到底想什么了，附件里不是说 筛选 003 的么？

mqj80

不知道为什么 发表于 2018-7-12 19:56
那我就不明白你到底想什么了，附件里不是说 筛选 003 的么？

我是想 把单据状态为进行中的数据写入到表2  但是有对应完结状态的进行中的记录不会被写入到表2 像单据号为001 和002 它们是对应的 所以筛选时001单据号记录不会被写到表2里。说的有点乱：）

不知道为什么

mqj80 发表于 2018-7-12 20:04
我是想 把单据状态为进行中的数据写入到表2  但是有对应完结状态的进行中的记录不会被写入到表2 像单据号 ...

先自己理清楚把，我是凌乱了。

不知道为什么

mqj80 发表于 2018-7-12 20:04
我是想 把单据状态为进行中的数据写入到表2  但是有对应完结状态的进行中的记录不会被写入到表2 像单据号 ...

你把 001 和 002 对应的逻辑说清楚，那这个问题基本就清晰了

mqj80

不知道为什么 发表于 2018-7-12 20:20
先自己理清楚把，我是凌乱了。

目的把“进行中”的记录写到表2   但是又不是把全部“进行中”的记录都写入表2  存在相同“业务号”的就不写入表2了 。像我表了打了黄色的两条记录