如何使用VBA把各个成员所锁定的目标连接在一起？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主
wise

Q:如何使用VBA把各个成员所锁定的目标连接在一起？

A:ALT+F11→插入模块→模块中输入以下代码：

Sub test()
Dim Arr, i As Long
Dim d As Object, Itm
'创建字典
Set d = CreateObject("scripting.dictionary")
'提取以A1开始的当前区域,并赋于变量Arr
Arr = Range("A1").CurrentRegion
'从第2行开始循环数组Arr
For i = 2 To UBound(Arr)
'把各成员的目标组合在一起
d(Arr(i, 1)) = d(Arr(i, 1)) & " " & Arr(i, 2)
Next i
'重新定义新的数组，并且数组是多行2列
ReDim Arr(1 To d.Count, 1 To 2)
'初始化i
i = 0
'循环字典的keys
For Each Itm In d
'累计器
i = i + 1
'把各个key赋予给数组
Arr(i, 1) = Itm
'把各个item赋予给数组，并将空格替换为+
Arr(i, 2) = Replace(Trim(d(Itm)), " ", "+")
Next
Set d = Nothing
'赋值给F1:G1区域
[F1:G1] = Array("成员", "目标")
'把数据放置于相应区域
Range("F2").Resize(i, 2) = Arr
End Sub

如何使用VBA把各个成员所锁定的目标连接在一起.rar

2楼
い卋玑┾宝珼

笨笨辛苦了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表