很可耻的来求助了~

long_0022 · 发表于 2014-11-7 11:27

本帖最后由 long_0022 于 2014-11-7 11:41 编辑

昨天刚注册的，今天来求助实在是尴尬~~~从论坛翻了半天也没找到合适的方法，所以来求助大神们！望大婶们赐教赐教~~
背景：小女子是做人事管理的，工作不顺，因为打卡记录整理太费劲，于是想来破解下，结果就华丽丽的卡住了……
问题如下：变态的打卡机导出的EXCEL中，一天的四个时间点全部在一个格格里，看了很多大神的贴子，没发现跟我这个一样的，所以来问问~~ 一个格里有2-4个时间点，我想请教怎么把他们变成一个时间格一个时间点。并进行转置，具体内容请参看附件，谢谢大家。

目标：：：

目标文件

附件穿不上来了，下午补充

行政办.rar (5.86 KB, 下载次数: 14)

long_0022 · 发表于 2014-11-7 11:27

请大神指导可以用什么函数或者怎么写宏代码呀？

TomingTang · 发表于 2014-11-7 12:32

您好，首先，到这里求助并不会让人觉得可耻，不懂就要问吗。
做了一下，用vba弄的，初步检查了一下，运行ok、

行政办.zip (21.42 KB, 下载次数: 15)

Sub 处理()
Dim Arr, Brr(1 To 10000, 1 To 40), drow%, dcol%, i%, j%, Trr, mmax%
With Worksheets("原始记录")
drow = .[a65536].End(3).Row
dcol = .[iv1].End(xlToLeft).Column
Arr = .Range(.Cells(2, 1), .Cells(drow, dcol))
m = 1: mmax = 1
For i = 1 To UBound(Arr)
Brr(m, 1) = Arr(i, 1): Brr(m, 2) = Arr(i, 2): Brr(m, 3) = Arr(i, 3)
mmax = 1
For j = 4 To UBound(Arr, 2)
If Arr(i, j) <> "" Then
Trr = Split(Arr(i, j), " ")
For k = 1 To UBound(Trr)
Brr(m + k - 1, j) = Trr(k)
Next
mmax = WorksheetFunction.Max(UBound(Trr), mmax)
End If
Next
m = m + mmax
Next
End With
With Worksheets("目标")
.Range("a2:ak10000").ClearContents
.[a2].Resize(m, 40) = Brr
End With
MsgBox "处理完毕"
End Sub

复制代码

TomingTang · 发表于 2014-11-7 12:35

pzzz 发表于 2014-11-7 12:17
vba可以做，函数不知道怎么做

你这个用函数做很复查的，而且数据量多的时候会运行很慢，vba可以轻松快速解决问题。

long_0022 · 发表于 2014-11-7 12:48

TomingTang 发表于 2014-11-7 12:32
您好，首先，到这里求助并不会让人觉得可耻，不懂就要问吗。
做了一下，用vba弄的，初步检查了一下，运行o ...

太谢谢了，万分感谢！！！我正在自学VBA~还需要进一步学习，再次感谢~

mabangbang · 发表于 2014-11-8 11:29

pzzz 发表于 2014-11-7 12:17
vba可以做，函数不知道怎么做

想装B，可是不想弄VBA，那个太费劲

cesh1 · 发表于 2014-12-8 23:43

本帖最后由 cesh1 于 2014-12-8 23:50 编辑

vba很快，用代码，如附件，取巧了
在转换按钮下面
刚才发现有三个时间段，就要用if+LEN来判断，分三行，如果没有三行，再把空行删除，没有VBA快捷方便
第一行=left（d2,6）
第二行=if（len（d2）=“18“，mid（d2，7,6），right（d2,6））
第三行=if（len（d2）=“18“，right（d2,6），”“）

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

[求助] 很可耻的来求助了~