manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 143|回复: 3
打印 上一主题 下一主题

单元格提取,求助大神,

[复制链接]
跳转到指定楼层
1楼
发表于 2021-6-13 13:57 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
2学分
本帖最后由 756082@qq.com 于 2021-6-13 14:02 编辑

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

求助,.zip

16.26 KB, 下载次数: 10

分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2021-6-14 19:16 | 只看该作者
本帖最后由 jbh121 于 2021-6-14 19:18 编辑

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

3楼
查看详细资料 发表于 2021-6-14 21:16 | 只看该作者
jbh121 发表于 2021-6-14 19:16
我先回复一个能用的,别打我。用技巧做好了。
先复制一份,然后把所有的 日,替换成 “日,”,
然后把“ ...

方法挺好的,但不能把姓名和后面的卡号分离出来
4楼
发表于 2021-6-15 19:30 | 只看该作者
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, 下载次数: 7)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-6-23 17:18 , Processed in 0.124801 second(s), 5 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表