函数如何写

mrshz

各位老师，请帮忙看一下，公式如何写

microyip

这个公式应该做不出来的东西吧？

鄂龙蒙

1. Sub 统计()
   
2.     [A2:D10000] = Empty
   
3.     Dim i, j, m, arr, brr()
   
4.     arr = Sheet1.UsedRange
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 2 To UBound(arr, 2) Step 2
   
7.             If Len(arr(i, j + 1)) And VBA.IsNumeric(arr(i, j)) Then
   
8.                 m = m + 1
   
9.                 ReDim Preserve brr(1 To 4, 1 To m)
   
10.                 brr(1, m) = arr(i, 1)
    
11.                 brr(2, m) = arr(i, j + 1)
    
12.                 brr(3, m) = arr(1, j)
    
13.                 brr(4, m) = arr(i, j)
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     [A2].Resize(m, 4) = Application.Transpose(brr)
    
18. End Sub

复制代码

mrshz

鄂龙蒙 发表于 2020-2-2 11:37

老师请问一下，请假的单元格是什么处理规则?