作者cutekid (可爱小孩子)
看板Office
标题Re: [算表] excel 从A表带资料到B表某栏位
时间Tue Oct 17 12:00:10 2023
VBA 解法:
Sub demo()
Set d = CreateObject("Scripting.Dictionary")
a = Sheets("A").UsedRange
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
Key = a(i, j)
If Key = "" Then: Exit For
If d.exists(Key) Then: d(Key) = d(Key) & ","
d(Key) = d(Key) & a(i, 1)
Next
Next
With Sheets("B")
For i = 1 To .[a1].End(4).Row
.Cells(i, 2) = d(.Cells(i, 1).Value)
Next
End With
End Sub
※ 引述《chueight (baba)》之铭言：
: 软体:excel
: 版本:2016
: 各位神人身为铲表新手的我有个问题
: 有两表AB
: A表资料如下（已经整理成不同栏）
: 甲 1 2 3
: 乙 2 3
: 丙 4
: 丁 1 2 5
: B表资料如下
: 1
: 2
: 4
: 5
: 3
: 请问B表如何套用公式或vba 整理（两栏）
: 1 甲,丁
: 2 甲,乙,丁
: 4 丙
: 5 丁
: 3 甲,乙
: 以上虚心受教，感谢ptt
: -----
: Sent from JPTT on my iPhone
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 136.226.241.113 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1697515212.A.988.html
1F：→ chueight: 再谢一次！ 10/31 14:59