向高手请教，单元格复杂数据提取

charlinwinter

          下午好！工作遇到一个大难题，在一堆数据中提取出审批人&审批时间。自己不知如何操作，请问是否有高手帮忙看一下怎么写/（我连合适的逻辑方法想不到）。谢谢了。

charlinwinter

工作急用。若需要也可有偿求助

2489586288

用正则表达式吧

2489586288

正则表达式提取审批所在的行就行了

charlinwinter

1.每条数据在一个单元格里，每个单元格有很多审批和审批时间。还有其他的评论时间、评论人什么的，所以正则表达式查了一下也不能处理。谢谢

2489586288

已经写好了，你QQ多少，审核慢

2489586288

• Sub 提取审批()
• arr = Range("a1").CurrentRegion
• Set d = CreateObject("scripting.dictionary")
• Range("c1").Resize(1, 100).EntireColumn.ClearContents
• For i = 1 To UBound(arr)
•     d.RemoveAll
•     brr = Split(arr(i, 1), Chr(10))
•     For Each k In brr
•         If InStr(k, "|审批|") Then
•             crr = Split(k, "|")
•             d(crr(0)) = CDate(crr(2))
•         End If
•     Next
•     If d.Count > 0 Then
•         Cells(i * 2 - 1, 3).Resize(1, d.Count) = d.keys
•         Cells(i * 2, 3).Resize(1, d.Count) = d.items
•         Cells(i * 2, 3).Resize(1, d.Count).NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
•     End If
• Next
• End Sub
  

zpy2

这种给系统打补丁包的方法的确是个难题。。。

excelvlookup

a=split(审批记录,"审批")
for i=1 to ubound(a)
你要的＝split(a(i),"|")(0)
end if

micch

直接split审批就可以了啊。前面是人后面是时间