|
本帖最后由 cunfu2010 于 2017-2-25 15:18 编辑
如题:
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
不知能不能实现(是不是有点异想天开的感觉^-^),麻烦各位大侠抽空给看看,指点一下。谢谢!
|
|