ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 622|回复: 8

[求助] 需要从“数据源表”提取数据到“家庭收入采集表”,要求每户建一张家庭收入采集表...

[复制链接]

TA的精华主题

TA的得分主题

发表于 2022-4-19 22:52 | 显示全部楼层 |阅读模式
本帖最后由 刘海伟lhw 于 2022-4-19 22:59 编辑

需要从“数据源表”提取数据到“家庭收入采集表”,要求每户建一张家庭收入采集表,每户下面有多人,同时提取家庭成员个人信息和家庭收入。跪求大神帮助解决,本人不会VBA。

求助工作表.zip

11.05 KB, 下载次数: 14

TA的精华主题

TA的得分主题

发表于 2022-4-20 08:15 | 显示全部楼层
视频教材:
https://mp.weixin.qq.com/s/FbeYUUat6DSRO3jwg3-YAQ
和你的需求一样,点几下就完成了。

TA的精华主题

TA的得分主题

发表于 2022-4-20 08:54 | 显示全部楼层
按家庭建表.gif
这就是你要的效果
一模一样
首次使用时要设置参数,以后都是一键完成
E灵,咦?灵!

TA的精华主题

TA的得分主题

发表于 2022-4-20 09:23 | 显示全部楼层
Sub 批量()
Application.ScreenUpdating = False
Dim ar As Variant
Dim arr()
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 2 Then
        sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
ar = Sheets("数据源").[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 5)) = "户主" Then
        hs = ar(i, 10)
        n = 0
        ReDim arr(1 To hs, 1 To 9)
        For s = i To i + hs - 1
            n = n + 1
            arr(n, 1) = n
            arr(n, 2) = ar(i, 1)
            arr(n, 3) = ar(i, 4)
            arr(n, 4) = ar(i, 2)
            arr(n, 5) = ar(i, 5)
            arr(n, 6) = ar(i, 7)
            arr(n, 7) = ar(i, 8)
            arr(n, 9) = ar(i, 9)
        Next s
        Sheets("家庭收入采集表").Copy after:=Sheets(Sheets.Count)
        With Sheets(Sheets.Count)
            .Name = ar(i, 1) & "_" & ar(i, 2)
            .[a3].Resize(n, UBound(arr, 2)) = arr
            .[b10] = ar(i, 11)
            .[d10] = ar(i, 12)
            .[f10] = ar(i, 13)
            .[h10] = ar(i, 14)
            .[j10] = ar(i, 15)
        End With
    End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

发表于 2022-4-20 09:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2022-4-22 15:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这种问题,用word中的邮件合并处理起来比较方便。

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-4-27 12:55 | 显示全部楼层
123-456789 发表于 2022-4-22 15:58
这种问题,用word中的邮件合并处理起来比较方便。

我不会邮件合并一对多啊,如何解决?

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-4-27 13:04 | 显示全部楼层
请问有没有免费工具可以使用啊,E灵免费版只能导出20个表

TA的精华主题

TA的得分主题

发表于 2022-4-27 13:41 | 显示全部楼层
刘海伟lhw 发表于 2022-4-27 13:04
请问有没有免费工具可以使用啊,E灵免费版只能导出20个表

自己开发的就免费
不过这种免费的 比收费的成本还要高
学好VBA开发,成本是上万元
假设学编程一年,利用业余时间每天两小时,一天算50元,一年就是1.5万,时间成本。




要么费时间,要么费点钱。
                          ---鲁迅

评分

1

查看全部评分

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

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-25 15:55 , Processed in 0.036698 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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