vba - 将多行和多列移动到具有多列的单行的代码

Question

我正在寻找一段代码，可用于将 Excel 中的数据从多行移动到一行，基于它在第 1 列中具有相同的 id。请参见下面的示例数据：

Column1 Column2 Column3 Column4
11111   Axx/111     
11111           Bxx/111 
11111                   Cxx/000
22222   Axx/112     
22222           Bxx/444 
22222                   Cxx/111
33333   Axx/113     
33333           Bxx/555 
33333                   Cxx/222
44444   Axx/114     
44444           Bxx/666 
44444                   Cxx/333
55555   Axx/115     
55555           Bxx/777 
55555                   Cxx/444

在第 1 列中的引用与多行相同的情况下，我想从多列中移动数据，将其保留在列中，但将其全部引用在 1 行中。所以代替这个：

Column1 Column2 Column3 Column4
11111   Axx/111     
11111           Bxx/111 
11111                   Cxx/000

我明白了：

Column1 Column2 Column3 Column4
11111   Axx/111 Bxx/111 Cxx/000
11111           
11111   

或这个：

Column1 Column2 Column3 Column4
11111   Axx/111 Bxx/111 Cxx/000
11111   Axx/111 Bxx/111 Cxx/000
11111   Axx/111 Bxx/111 Cxx/000

请帮忙！

Answer 1

如果您不需要求和并且您确定每列只能检索 1 个元素，您可以使用VLOOKUP. 使用左侧的键创建另一张表。您可以使用Data > Delete duplicates仅获取唯一键。然后您使用类似于此的公式：

在第 2 列中： =VLOOKUP($A2, A:D, 2, 0)

在第 3 列中： =VLOOKUP($A2, A:D, 3, 0)

在第 2 列中： =VLOOKUP($A2, A:D, 4, 0)