Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1849|回复: 3

提取数据,将列数据提取到行里

[复制链接]
发表于 2019-10-10 18:27 | 显示全部楼层 |阅读模式
本帖最后由 chensir 于 2019-10-10 18:30 编辑

各位好,《开票资料》表里A:B列,有每6行为一组的数据,组数不限。
             《开票资料》 公司名称                              对应 《商场开票信息》表里的 D列
             《开票资料》 公司地址                              对应 《商场开票信息》表里的 I列
             《开票资料》 税号                                    对应 《商场开票信息》表里的H列
             《开票资料》银行账号-汉字部分即开户行    对应《商场开票信息》表里的K列
             《开票资料》银行账号-数字部分即银行账号 对应《商场开票信息》表里的L列
              《开票资料》电话                                    对应 《商场开票信息》表里的J列
希望将 《开票资料》的数据提取到《商场开票信息》对应的行里。


请各位帮忙,谢谢。

求助.rar

10.96 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-10-10 19:45 | 显示全部楼层
本帖最后由 爱疯 于 2019-10-10 19:54 编辑

Sub test()
    Dim A, B, i, s
    A = Sheets(1).Range("a1").CurrentRegion
    Sheets(2).Select
    Rows("2:" & Rows.Count) = ""
    B = Range("a1").CurrentRegion
    ReDim B(1 To 10 ^ 4, 1 To UBound(B, 2))             '如果记录数>1万再改

    For i = 1 To UBound(A) Step 6
        s = s + 1
        B(s, 4) = A(i + 1, 2)                           '公司名称
        B(s, 9) = A(i + 2, 2)                           '公司地址
        B(s, 8) = A(i + 3, 2)                           '税号
        B(s, 11) = f(A(i + 4, 2), "\d+")                '银行账号 - 汉字
        B(s, 12) = f(A(i + 4, 2), "[\u4E00-\u9FA5]+")   '银行账号 - 数字
        B(s, 10) = A(i + 5, 2)                          '电话
    Next i
    Range("a2").Resize(s, UBound(B, 2)) = B

End Sub

'提取汉字或数字(原字符串, 正则)
Function f(x, y)
    With CreateObject("VBScript.RegExp")
        .Pattern = y
        f = .Replace(x, "")
    End With
End Function

1.rar (19.11 KB, 下载次数: 14)

评分

参与人数 1学分 +3 收起 理由
chensir + 3 学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-10-11 08:13 | 显示全部楼层
爱疯 发表于 2019-10-10 19:45
Sub test()
    Dim A, B, i, s
    A = Sheets(1).Range("a1").CurrentRegion

多谢,多谢
回复

使用道具 举报

发表于 2019-10-11 08:22 | 显示全部楼层

没什么,互相帮助
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:53 , Processed in 0.836986 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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