单元格提取，求助大神,

756082@qq.com

上传附件.和TXT .也可以帮我定义自己导入txt.每天文本日期会变
需要提取单元格数据,求大神帮助,
1,从表数据A行去数据.要求的数据在A6-A7,不要有符号,空格,.取完后到表结果对应的位置.
2,数据量大,VBA好像快些吧..

jbh121

我先回复一个能用的，别打我。用技巧做好了。
先复制一份，然后把所有的 日，替换成 “日，”，
然后把“”订单查询：“ 替换成空值；
把9点20秒后面的分号，替换成逗号，
检查一下，然后数据//分列//分隔符//输入逗号，就可以了

wanao2008

jbh121 发表于 2021-6-14 19:16
我先回复一个能用的，别打我。用技巧做好了。
先复制一份，然后把所有的 日，替换成 “日，”，
然后把“ ...

方法挺好的，但不能把姓名和后面的卡号分离出来

cui26896

Sub test()
Dim ar, i&, j&, br(), md As Date, title As Variant
  With Sheets("数据")
    ar = .Range("a2").CurrentRegion
    ReDim br(1 To UBound(ar) - 1)
    For i = 1 To UBound(br)
      br(i) = Split(ar(i + 1, 1), ",")
    Next
  End With
  ReDim ar(1 To UBound(br), 1 To 7)
  For i = 1 To UBound(br)
    md = Split(Split(br(i)(0), "：")(1), ";")(0)
    ar(i, 1) = Format(CDate(md), "yyyy/mm/dd")
    ar(i, 2) = Format(CDate(md), "hh:mm:ss")
    ar(i, 3) = Split(Split(br(i)(0), "：")(1), ";")(1)
    For j = 1 To Len(Split(br(i)(0), "：")(2))
      If Not IsNumeric(Mid(Split(br(i)(0), "：")(2), j, 1)) And Mid(Split(br(i)(0), "：")(2), j, 1) <> "'" Then
        ar(i, 4) = ar(i, 4) & Mid(Split(br(i)(0), "：")(2), j, 1)
      End If
    Next
      ar(i, 5) = br(i)(5)
      ar(i, 6) = Val(br(i)(UBound(br(i)) - 2))
      ar(i, 7) = Val(br(i)(UBound(br(i)) - 1))
  Next
  title = [{"日期","时间","经销商","姓名","类型","台数","比例"}]
  With Sheets("结果")
    .Range("a1").CurrentRegion.ClearContents
    .Range("a1").Resize(1, UBound(title)) = title
    .Range("a2").Resize(UBound(ar), UBound(ar, 2)) = ar
  End With
End Sub
请参考附件
单元格提取.zip (23.96 KB, 下载次数: 8)

2021-6-15 19:29 上传

点击文件名下载附件