引用问题5

wjw3604309

希望能在节假日列内用函数显示，节假日的具体日子

蝶·舞

同样是“睡”和“周末”，为什么3，17剔除，而25日却要计算出来？
PS:建议楼主以后标题不要搞成系列似的，简明说明具体问题，这样反而有助于问题的解决

wjw3604309

蝶·舞 发表于 2012-1-31 18:34
同样是“睡”和“周末”，为什么3，17剔除，而25日却要计算出来？
PS:建议楼主以后标题不要搞成系列似的， ...

没有剔除,可能时间急,漏掉了,不好意思

wjw3604309

wjw3604309 发表于 2012-1-31 18:54
没有剔除,可能时间急,漏掉了,不好意思

凡是,有周末的,值班或睡了的,都要,标出

hrpotter

给你个VBA的

1. Sub 填充()
   
2.     Dim arr()
   
3.     Dim i, j, k As Integer
   
4.     For i = 3 To Range("a65536").End(xlUp).Row
   
5.         For j = 2 To 32
   
6.             If (Cells(i, j) = "值班" Or Cells(i, j) = "睡") And Cells(1, j) = "周末" Then
   
7.                 k = k + 1
   
8.                 ReDim Preserve arr(1 To k)
   
9.                 arr(k) = Cells(2, j)
   
10.             End If
    
11.         Next
    
12.         Range("ah" & i) = Join(arr, "、")
    
13.         Erase arr
    
14.         k = 0
    
15.     Next
    
16. End Sub

复制代码

liziyuliziyu7

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

zmj421

顶顶顶顶顶顶顶顶顶顶顶顶顶顶