核查出张三在10月2日重复出差

wbwj2012

出差要求：每人每天只能出差一次，出差两次也只算一次               
               
达成目标：找到张三在10月2号重复出差               
               
我的思路是根据原始数据生成每个人的具体出差日期               
               
然后再根据生成数据，用什么核查方法去找出张三在10月2号重复出差               
               
需要解决两个问题：（1）怎么根据原始数据去操作转换成生成数据
                                  (2)怎么根据生成数据去核查张三出张三重复出差        
               
不用我的思路也可以，只要达成目标就行了。
由于本人excel技术有限，只能求助各位网友帮帮忙了。

我已经通过数据透析表解决问题（2）了，现在还需要解决问题（1）

洋务德雷

多值字段拆解，这个也用数据透视表可以解决

wbwj2012

洋务德雷 发表于 2021-11-5 16:16
多值字段拆解，这个也用数据透视表可以解决

谢谢提供思路，但是我没用过，很多功能都不懂，如果有空，不妨指点指点步骤

洋务德雷

wbwj2012 发表于 2021-11-5 16:25
谢谢提供思路，但是我没用过，很多功能都不懂，如果有空，不妨指点指点步骤

不好意思，我看错了。不是我想的那么简单。我再考虑一下。

洋务德雷

没想出来，看似简单，其实挺复杂的。我再想不出来就只能用vba了

wbwj2012

洋务德雷 发表于 2021-11-5 20:55
没想出来，看似简单，其实挺复杂的。我再想不出来就只能用vba了

多谢老哥

我昨晚有查到一个案例，类似把出差人分成多行，出差人对应时间的列跟着对应变化，用vba解决的，但是我看不懂，下面是具体的代码和附件，劳烦广大的网友帮看看，我自己也自行研究看能否看懂运用

1. 
   
2. Sub 整理()
   
3.     Dim nRow%, Arr(), Brr(), m%, Trr
   
4.     nRow = Range("a1048576").End(xlUp).Row
   
5.     Arr = Range("a1:c" & nRow).Value
   
6.     ReDim Brr(1 To nRow * 3, 1 To 3)
   
7.     For i = 2 To nRow
   
8.         Trr = Split(Arr(i, 1), "、")
   
9.         For j = 0 To UBound(Trr)
   
10.             m = m + 1
    
11.             Brr(m, 1) = Trr(j)
    
12.             Brr(m, 2) = Arr(i, 2)
    
13.             Brr(m, 3) = Arr(i, 3)
    
14.         Next
    
15.     Next
    
16.     Range("a2:c" & m + 1).Value = Brr
    
17.     Range("a2:c" & m + 1).Borders.LineStyle = 1
    
18. End Sub
    

复制代码

mavin

基础数据不规范，要用程序让它自动转换成规范的数据，感觉只是美好的理想。实际应用当中，往往是中间有空格，有英文逗号，有中文逗号，有斜杠，有单元格内换行等各种情况。你要让VBA代码解决你各种各样的意外问题，感觉不现实。数据量不大，就手工替换，分列等基础操作，把数据调规范吧。

洋务德雷

mavin 发表于 2021-11-8 22:36
基础数据不规范，要用程序让它自动转换成规范的数据，感觉只是美好的理想。实际应用当中，往往是中间有空格 ...

赞成，大多数网友的问题都是因为数据不规范导致的。可是很多人都意识不到这个问题。

wbwj2012

这几天恶补了vba基础，终于把6楼的代码弄懂了，在这个代码基础上添加了日期的变化，基本解决了第（1）个问题，紧接着用数据透析表，核查出了是否有人重复出差
如果有网友不同的解决途径，也欢迎分享

1. Sub 整理1()
   
2.     Dim nRow%, Arr(), Brr(), m%, Trr
   
3.     nRow = Range("a10000").End(xlUp).Row
   
4.     Arr = Range("a2:e" & nRow).Value
   
5.     ReDim Brr(1 To nRow * 5, 1 To 3)
   
6.     For i = 2 To nRow - 1
   
7.         Trr = Split(Arr(i, 1), "、")
   
8.         For k = 0 To Arr(i, 5) - Arr(i, 3)
   
9.         For j = 0 To UBound(Trr)
   
10.           m = m + 1
    
11.             Brr(m, 1) = Trr(j)
    
12.             Brr(m, 2) = Arr(i, 2)
    
13.             Brr(m, 3) = Arr(i, 3) + k
    
14.         Next
    
15.         Next
    
16.     Next
    
17.     Range("g3:i" & m * 3).Value = Brr
    
18.     Range("g3:i" & m * 3).Borders.LineStyle = 1
    
19. End Sub
    

复制代码