[已解决]特殊字符串处理的问题

cunfu2010

如题：
Sub t()
arr = Array("2013-1-1", "2013-1-2", "2013-1-5", "2013-1-3", "2013-2-9", "2013-1-6", "2013-2-10", "2013-2-16", "2013-2-11")
brr = Array("2013-1-5", "2013-1-6", "2013-2-16")
crr = Array("2013-1-1", "2013-1-2", "2013-1-5", "2013-1-3", "2013-2-9", "2013-1-6", "2013-2-10", "2013-2-16", "2013-2-11", "2013-2-12", "2013-2-13", "2013-2-14")

'如何编写代码实现：1、数组crr中含有数组arr的全部删除；2、数组crr中日期为周六、周日的全部删除；3、数组crr中日期虽为周六、周日，但包含在数组brr中的，则保留不删除。最后生成新的数组drr,并在指定单元格区域输出

[A1].Resize(UBound(drr)) = Application.Transpose(drr)
End Sub
不知能不能实现（是不是有点异想天开的感觉^-^），麻烦各位大侠抽空给看看，指点一下。谢谢！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2017-2-25 10:55

问题出在InStr，用字典来进行检查就没问题了！

跳转到最佳答案楼层

老司机带带我

第一个For循环改一下

1. For i = LBound(crr) To UBound(crr)
   
2.     If InStr(Join(arr), crr(i)) = 0 And (Weekday(crr(i)) <> 1 And Weekday(crr(i)) <> 7 Or InStr(Join(brr), crr(i))) Then
   
3.         s.Add crr(i)
   
4.     End If
   
5. Next

复制代码

cunfu2010

老司机带带我 发表于 2017-2-24 13:05
第一个For循环改一下

感谢帮助，现在还有一个问题：代码执行后结果不对，两种情况都不对（部分值不对），我上传了个附件，麻烦再给看看。谢谢！

老司机带带我

格式的问题吧，一个是几月几号，一个是yyyy-m-d这种形式的，怎么比？修改代码如下

1. crr(k) = Format(DateSerial(Year(Date), mm, x), "yyyy-m-d")

复制代码

cunfu2010

老司机带带我 发表于 2017-2-24 16:23
格式的问题吧，一个是几月几号，一个是yyyy-m-d这种形式的，怎么比？修改代码如下

还是有点问题，部分值不对，附件重新上传了，麻烦了。

cunfu2010

老司机带带我 发表于 2017-2-24 16:23
格式的问题吧，一个是几月几号，一个是yyyy-m-d这种形式的，怎么比？修改代码如下

附件是结果比对情况

老司机带带我

问题出在InStr，用字典来进行检查就没问题了！

cunfu2010

老司机带带我 发表于 2017-2-25 10:55
问题出在InStr，用字典来进行检查就没问题了！

谢谢，问题解决了。