Question

把excel 表2里A列跟表1A列相同内容的表2的多行数据 复制到表1中，并变成多行，表1中每一列数据都不相同

如图 表1 表2
表1 表2 数量非常大

Answer 1

Sub 根据A列条件挑唯一数据()
Set d = CreateObject("Scripting.dictionary")
end1 = Sheet1.Columns(1).Find("*", , , , , xlPrevious).Row
end2 = Sheet2.Columns(4).Find("*", , , , , xlPrevious).Row
条件 = Sheet1.Range("a2:a" & end1)
数据 = Sheet2.UsedRange
列 = Sheet2.UsedRange.Columns.Count
For Each Rng In 条件
k = k + 1
For i = 1 To UBound(数据)        '遍历行
If Rng = 数据(i, 1) Then
For j = 2 To 列                  '遍历列
If Not 数据(i, j) = "" Then      '不是空才添加字典
d(数据(i, j)) = 数据(i, j)
End If
Next j
End If
Next i
If Not d.Count = 0 Then
Sheet1.Cells(k + 1, 2).Resize(1, d.Count) = d.items
d.RemoveAll
End If
Next Rng
End Sub

注意：保证两个sheet名称正确（sheet1、sheet2）

如果不会用代码，给我一个邮箱，发给你原文件。

追问

您这是把a对应的数据放到多列中了，我是想放到多行中

追答

一行放一个唯一值？
a 123
a 312
a 213
........
这样？

Answer 2

就看你出多少

Answer 3

写代码可以实现