问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

救救孩子吧,这个Excel的数据怎么用VBA解决?

发布网友 发布时间:2024-09-29 03:47

我来回答

1个回答

热心网友 时间:2024-09-30 04:06

Sub test1()
Dim i&, j&, arr, brr(), crr, r&, a, b, d As Object
r = Cells(Rows.Count, 1).End(xlUp).Row
ReDim brr(1 To r - 1)
For i = 2 To r
arr = Application.Transpose(Application.Transpose(Range("a" & i & ":d" & i)))
a = Join(arr, "|")
brr(i - 1) = a
Next
Set d = CreateObject("scripting.dictionary")
For Each b In brr
d(b) = ""
Next
arr = d.keys
For i = 1 To UBound(arr) + 1
Cells(i + 1, 10).Resize(1, 4) = Split(arr(i - 1), "|")
Cells(i + 1, 10) = Val(Cells(i + 1, 10))
d.RemoveAll
For j = 1 To r - 1
a = Cells(j + 1, 5)
If arr(i - 1) = brr(j) And a <> "" Then
d(a) = ""
End If
Next
crr = d.keys
Cells(i + 1, 14) = Join(crr, "、")
d.RemoveAll
For j = 1 To r - 1
a = Cells(j + 1, 6)
If arr(i - 1) = brr(j) And a <> "" Then
d(a) = ""
End If
Next
crr = d.keys
Cells(i + 1, 15) = Join(crr, "、")
Next
[j1:o1] = [a1:f1].Value
[j:j].NumberFormatLocal = "yyyy-mm-dd"
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
高考560分能上211大学吗? - 知乎 河北高考多少分能上211大学 河北2023高考211分数线是多少? 考560分能上211大学吗河北 刀剑英雄合王者武器多少费用 刀剑英雄帝辰王者现在什么价位 2021年度工程施工合同范本 2021承包转让简单的合同范本 2021医院食堂承包合同范本 div+css+js实现菜单的收缩与展开 调用数据库内容的时候为什么内容字段... excel表格vba高级用法 值得收集的VBAExcel从混合数据单元中快速提取英文数字和中文_百度知 ... ...寄存柜里寄存了个人物品,可视为保管合同成立,是否正确? 连续两天梦见棺材 前天梦到自己的亲人死了 屋里空荡荡一遍 最后哭醒了... 急求重庆-香格里拉自驾游攻略7天,路线,时间,大致费用多少? “亚古兽进化暴龙兽,暴龙兽超进化机械暴龙兽”这句咒语是出自那部动画... 宠物超进化手游下载如何下载 ...打电话为什么有时候可以接通有时候却显示无法接通呢那是我女朋友的... 2022霸气超拽女生高冷的说说 我把自己养这么好不想便宜了任何人... qq心情说说_总有一个人,让你无端端微笑 男朋友发了一条说说,我评论亲爱的!照顾好自己,可是为什么他要删掉那条... 你好,我的小米4为什么别人打我电话老是打不通,是暂时无法接通,有什么方 ... 偶尔还是会想起你吉他谱偶尔还是会想起你 牛奶咖啡,偶尔还是会想起你歌词 去超市买东西 结果忘记把放在超市储物柜里面的东西带回来了 而且带条形 ... 商场哪里可以寄存行李箱 放超市储物柜的包被盗可否要求赔偿 boss直聘隐身访问怎么设置? 王者荣耀不用微信能玩吗? Boss直聘隐藏访问的方法是什么? 大家对好马不吃回头草怎么理解 说一说你是怎样看待好马不吃回头草这句话? 好马不吃回头草 这句话你们都怎么理解? ...坐到哪去稻城亚丁最近,不能应该怎么走...跪求。 稻城亚丁没车怎么去,旅游景点亚丁 去稻城亚丁的路好走吗,稻城亚丁自驾旅游险峻吗 简单又好吃的神仙炒饭做法 wxid微信号能找到吗? 怎么用wxid查找微信号? 通过wxid整么找微信号 网红销魂炒饭的制作方法 怎么样能找回微信号? 微信号wxid可以查到微信号吗? wxid开头的可以查到微信号不 我有wxid能找到微信号不 ...天津市 从津南区到大港小王庄怎么坐公交,或者从市里直接去大港小王庄... 从天津日报大厦到大港区太平镇政府怎么走啊?大概需要多长时间啊? 大港区到沧州怎么 走? 三门县医疗卫生计生单位 公开招聘事业编制工作人员 每年哪个时间_百度... 进合肥卫生局是要参加国家公务员考试还是地方公务员考试