用VBA提取excel筛选后内容放在另一个工作表固定单元格内并用顿号隔开

cxwhite · 发表于 2020-10-9 14:02

在sheet1筛选人名（如张三）
筛选后用vba实现将张三负责科目提取到sheet2表C3单元格。
新人学习
谢谢

cxwhite · 发表于 2020-10-9 14:03

顶顶顶顶顶顶顶顶顶顶

pjiang · 发表于 2020-10-9 14:29

题目本身简单，主要是如何提高效率的问题

cxwhite · 发表于 2020-10-9 14:34

pjiang 发表于 2020-10-9 14:29
题目本身简单，主要是如何提高效率的问题

求助求助求助求助求助

flyfairy · 发表于 2020-10-9 14:41

Sub test1()
Dim sh1, sh2 As Worksheet
Dim arr, brr As Variant
Dim dic1 As Object
Dim i As Integer, j As Integer
Set sh1 = ThisWorkbook.Sheets("sheet1")
Set sh2 = ThisWorkbook.Sheets("sheet2")
arr = sh1.UsedRange
brr = sh2.UsedRange
Set dic1 = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If arr(i, 2) <> "" And dic1.exists(arr(i, 2)) = True Then
dic1(arr(i, 2)) = dic1(arr(i, 2)) & "、" & arr(i, 4)
ElseIf arr(i, 2) <> "" Then
dic1(arr(i, 2)) = arr(i, 4)
End If
Next
For j = 3 To UBound(brr)
sh2.Cells(j, 3) = dic1(brr(j, 2))
Next
End Sub

复制代码

flyfairy · 发表于 2020-10-9 14:42

附上附件,供参考

pjiang · 发表于 2020-10-9 14:58

字典的典型运用，

，学习了

cxwhite · 发表于 2020-10-14 11:29

flyfairy 发表于 2020-10-9 14:41

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

dongdonggood · 发表于 2024-3-5 10:29

flyfairy 发表于 2020-10-9 14:41

If arr(i, 2) <> "" And dic1.exists(arr(i, 2)) = True Then
dic1(arr(i, 2)) = dic1(arr(i, 2)) & "、" & arr(i, 4)
这一句中的 dic1.exists(arr(i, 2)) = True 什么意思？

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

[求助] 用VBA提取excel筛选后内容放在另一个工作表固定单元格内并用顿号隔开