考勤如何运用公式横向转换成纵向

mumu922

求 工作簿1.rar (13.81 KB, 下载次数: 19)

2021-8-31 10:25 上传

点击文件名下载附件

大神指导，如果将附件中的原始文件改成转换后的考勤格式，横向考勤很多地方都不方便！！

samlau780

复制——鼠标右键点击要粘贴到的地方——粘贴选项中选择“转置”

sunya_0529

用公式比较困难，用宏就比较简单了——

1. Option Explicit
   
2. 
   
3. Sub GetInfo()
   
4. Dim c As Range, arr(9999, 4), i%, j%
   
5. With Sheet1
   
6.   arr(0, 0) = "日期"
   
7.   arr(0, 1) = "星期"
   
8.   arr(0, 2) = "姓名"
   
9.   arr(0, 3) = "上班"
   
10.   arr(0, 4) = "下班"
    
11.   For Each c In .Range("A3:A" & .[A65536].End(xlUp).Row + 1)
    
12.     If Len(c.Value) > 0 Then
    
13.       For i = 1 To 31
    
14.         arr(i + 31 * j, 0) = .Cells(1, i + 2).Value
    
15.         arr(i + 31 * j, 1) = .Cells(2, i + 2).Value
    
16.         If i = 1 Then arr(i + 31 * j, 2) = c.Value
    
17.         arr(i + 31 * j, 3) = c.Offset(0, i + 1).Value
    
18.         arr(i + 31 * j, 4) = IIf(c.Offset(2, 0).Value > 0, c.Offset(1, i + 1).Value, IIf(c.Offset(2, i + 1).Value > 0, c.Offset(2, i + 1).Value, c.Offset(1, i + 1).Value))
    
19.       Next i
    
20.       j = j + 1
    
21.     End If
    
22.   Next c
    
23. End With
    
24. With Sheet2.[G2]
    
25.   .CurrentRegion.Clear
    
26.   .Resize(10000, 5) = arr
    
27.   .CurrentRegion.Borders.LineStyle = xlContinuous
    
28.   .CurrentRegion.HorizontalAlignment = xlCenter
    
29.   .CurrentRegion.Rows(1).Font.Bold = True
    
30. End With
    
31. End Sub

复制代码