考勤记录纵向转横向

Datous · 发表于 2019-4-3 22:13

wangfeng2015 发表于 2019-4-3 18:27
我用的就是VBA+ADO+SQL啊

大侠，sql怎么写，没想出来

wangfeng2015 · 发表于 2019-4-5 09:14

Datous 发表于 2019-4-3 22:13
大侠，sql怎么写，没想出来

原始表格先插入两个辅助列，一个为日期，一个为时刻；日期使用int取原始含时分秒的日期的整数，设置格式为仅含天的格式yyyyy/mm/dd；时刻，就=含时分秒的日期-取整之后的日期，设置格式为hh/mm;之后就很简单了，就是我最前面的使用transform+pivot完成转置

saiwet · 发表于 2019-4-8 19:24

本帖最后由 saiwet 于 2019-4-8 19:28 编辑

Datous 发表于 2019-4-3 12:03
没排错。先看看行不行。

已经能用了，谢谢大侠。

saiwet · 发表于 2019-4-8 23:52

本帖最后由 saiwet 于 2019-4-9 13:43 编辑

Sub 不同工作表纵向转横向()

Dim d, arr, brr
Set d = CreateObject("Scripting.Dictionary")

arr = Sheet1.Range("A3").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 12)

For i = 2 To UBound(arr)
s = arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4)

If d(s) = "" Then
m = m + 1: d(s) = m

For j = 1 To UBound(arr, 2)
brr(m, j) = arr(i, j)

Next
Else
brr(d(s), 12) = arr(i, 5)
End If
Next
Sheet2.[A4].Resize(m, 12) = brr
End Sub

saiwet · 发表于 2019-4-8 23:52

本帖最后由 saiwet 于 2019-4-9 13:41 编辑

这是在本站找到的一段代码，如果转换第一次、最后一次打卡记录感觉非常不错，可惜不能实现本人需求，请大侠帮忙修改，以实现考勤表纵向转横向并排序的功能。谢谢

saiwet · 发表于 2019-4-13 10:46

问题已经全部解决，感谢本站各路高手的精彩指引，终于得到完美解决方案。

TonyLF · 发表于 2023-5-19 18:07

saiwet 发表于 2019-4-13 10:46
问题已经全部解决，感谢本站各路高手的精彩指引，终于得到完美解决方案。

帮忙发出来学习学习

		自动登录	找回密码
密码			免费注册

[求助] 考勤记录纵向转横向