[求助] [求大神帮忙]excel提取数据

cp1735 · 发表于 2018-7-30 16:35

本帖最后由 cp1735 于 2018-7-30 17:54 编辑

求助各位：表1有大量数据，想分别提取到表2、表3中。说明：只是想把表1每1行的数据分2行显示，分别显示在表2，表3中。“对方户名”中的单位名称，有可能是重复的，不要求汇总。

mikezhan · 发表于 2018-7-30 16:41

提示: 作者被禁止或删除内容自动屏蔽

cp1735 · 发表于 2018-7-30 16:48

mikezhan 发表于 2018-7-30 16:41
没看懂你的要求。你是不是要把收入、支出数据按对方名称进行归集，但不汇总？

想按顺序显示，不要求汇总。

mikezhan · 发表于 2018-7-30 16:54

提示: 作者被禁止或删除内容自动屏蔽

mikezhan · 发表于 2018-7-30 16:56

提示: 作者被禁止或删除内容自动屏蔽

iwangyi · 发表于 2018-7-30 17:07

Sub CC()
Set d = CreateObject("scripting.dictionary")
Set dd = CreateObject("scripting.dictionary")
arr = Sheets("银行数据").UsedRange
For i = 2 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
dd(arr(i, 1)) = dd(arr(i, 1)) + arr(i, 3)
Next
Stop
For Each sh In Sheets
If sh.Name <> "银行数据" Then
n = sh.Range("c65536").End(xlUp).Row
For i = 2 To n
sh.Cells(i, 3) = d(sh.Cells(i, 1).Value): sh.Cells(i, 2) = dd(sh.Cells(i, 1).Value)
Next
End If
Next
End Sub

iwangyi · 发表于 2018-7-30 17:11

见附件*********

cp1735 · 发表于 2018-7-31 10:33

谢谢大家。

		自动登录	找回密码
密码			免费注册

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-30 16:41 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-30 16:54 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-30 16:56 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报