ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 数据归类整理

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-18 16:09 | 显示全部楼层 |阅读模式
数据归类整理,详细看附件,谢谢谢谢谢谢

提问.zip

13.37 KB, 下载次数: 8

TA的精华主题

TA的得分主题

发表于 2020-1-18 17:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
办法就是你自己想想方法怎么做,老是等现成的干嘛

TA的精华主题

TA的得分主题

发表于 2020-1-18 17:25 | 显示全部楼层
费了九牛二虎之力,勉强把你的要求看懂了(自以为)。
QQ截图20200118172252.png

TA的精华主题

TA的得分主题

发表于 2020-1-18 17:30 | 显示全部楼层
楼主是这个意思吗

提问.rar

26.66 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2020-1-18 18:16 | 显示全部楼层
本帖最后由 kkf5560 于 2020-1-18 18:23 编辑
  1. <p>传附件算了</p>
复制代码



新手上路,练习一下嵌套...感觉整段要垮掉了

提问.zip

19.6 KB, 下载次数: 3

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-1-18 18:40 | 显示全部楼层
  1. Sub 数据分类整理()
  2.     Dim arr, i%, a(), k%, m%, n%, s$, d As Object
  3.     Set d = CreateObject("scripting.dictionary")
  4.     arr = Sheet1.Range("A3").CurrentRegion
  5.     For i = 2 To UBound(arr)
  6.         s = arr(i, 2) & "|" & arr(i, 3)
  7.         If Not d.Exists(s) Then
  8.             k = k + 1
  9.             m = k: d(s) = k
  10.             ReDim Preserve a(1 To 6, 1 To k)
  11.             a(1, m) = arr(i, 1) '项目名称
  12.             a(2, m) = arr(i, 2) '图号
  13.             a(3, m) = arr(i, 3) '产品名称
  14.         Else
  15.             m = d.Item(s)
  16.         End If
  17.         
  18.         If arr(i, 3) = "门连套" Then
  19.             If InStr(arr(i, 4), "套板") Then
  20.                 a(5, m) = arr(i, 5) '深(D)
  21.             ElseIf InStr(arr(i, 4), "线条") Then
  22.                 a(4, m) = arr(i, 5)   '长(W)
  23.                 a(6, m) = arr(i, 7)   '高(H)
  24.             End If
  25.         ElseIf arr(i, 3) = "衣柜" Then
  26.             If arr(i, 4) = "柜体" Then
  27.                 a(5, m) = arr(i, 6) '深(D)
  28.             ElseIf InStr(arr(i, 4), "线条") Then
  29.                 a(4, m) = arr(i, 5)   '长(W)
  30.                 a(6, m) = arr(i, 7)   '高(H)
  31.             End If
  32.         Else
  33.             a(4, m) = arr(i, 5)   '长(W)
  34.             a(5, m) = arr(i, 6)   '深(D)
  35.             a(6, m) = arr(i, 7)   '高(H)
  36.         End If
  37.         
  38.     Next
  39.     Sheet2.Range("H4").Resize(m, 6) = WorksheetFunction.Transpose(a)
  40. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2020-1-18 18:41 | 显示全部楼层
本帖最后由 一指禅62 于 2020-1-18 18:44 编辑

数据分类整理.rar (15.23 KB, 下载次数: 19)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-20 10:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

你好,我忘记了一个条件,能帮忙加上吗,非常感谢

数据分类整理1.20.zip

14.15 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2020-1-20 18:17 | 显示全部楼层
虽然是做出来了,但对楼主的表格处理,非常不解!!!木饰面明明长度不同,就算在同一图中,也应该在名称上有所区别,结果要弄成同样的名称,本来一个字典就能轻松解决的问题,弄得非常的烦琐,难怪老师们都不愿意再介入。所以,通过此例,想得到帮助的人应该注意,除了在论坛提出问题,也应该对自己表格的设计,名称设置这些自己能解决的问题,尽量做好。

数据分类整理1.20.xls.zip (18.64 KB, 下载次数: 3)



评分

2

查看全部评分

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

本版积分规则

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

GMT+8, 2024-3-29 17:43 , Processed in 0.047637 second(s), 16 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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