如何将姓名相同的排在同一列中？

CXH770302

需求：将表格中相同的姓名排在同一列中，十分感谢！

一把小刀闯天下

'条件不够，按整体同列来处理的，应该是按区域来同列的，但区域分块不明显，，，

Option Explicit

Sub test()
  Dim arr, i, j, n, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("a2:k" & Cells(Rows.Count, "a").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To 50 * UBound(arr, 2)) As String
  For i = 1 To UBound(arr, 1) - 1
    For j = 1 To UBound(arr, 2)
      If Len(arr(i, j)) Then
        If dic.exists(arr(i, j)) = False Then n = n + 1: dic(arr(i, j)) = n
        brr(i, dic(arr(i, j))) = arr(i, j)
      End If
    Next
  Next
  [l2].Resize(UBound(brr, 1), n) = brr
End Sub

CXH770302

一把小刀闯天下 发表于 2019-11-14 06:37
'条件不够，按整体同列来处理的，应该是按区域来同列的，但区域分块不明显，，，

Option Explicit

十分感谢，我先测试下。

一把小刀闯天下

输出有162列，因为是整体同列不可能输出为11列的。最好做个图示，，，

CXH770302

一把小刀闯天下 发表于 2019-11-14 06:37
'条件不够，按整体同列来处理的，应该是按区域来同列的，但区域分块不明显，，，

Option Explicit

是按整张表来说，相同姓名排在一列。

一把小刀闯天下

CXH770302 发表于 2019-11-14 07:03
是按整张表来说，相同姓名排在一列。

那2楼的代码应该没有问题，，，

CXH770302

一把小刀闯天下 发表于 2019-11-14 07:05
那2楼的代码应该没有问题，，，

老师，你好，您帮我做的姓名排列，我的原表列数11列，可你的代码结果是超出11列的。能否再完善下呀。谢谢！

一把小刀闯天下

CXH770302 发表于 2019-11-14 08:53
老师，你好，您帮我做的姓名排列，我的原表列数11列，可你的代码结果是超出11列的。能否再完善下呀。谢谢 ...

4楼给你说明了

162个人那就是至少需要162列输出，否则肯定有不同人名在同列的。可以做个图示来说明你认为的同列是什么样子的，，，

wdx223

我猜楼主想要的是姓名按行对齐，保持11列不动