用修改后的数据从列表转换为平面CSV

Question

我有爱尔兰/苏格兰宗族名称的列表，我需要将其放入搜索模块使用的格式中。以下是问题所在：

O'Quinn     Antrim
Quillan     Antrim
Quin        Antrim
Quinn       Antrim
Alinden     Armagh
Baron       Armagh
Barron      Armagh
Branagan    Armagh
Calan       Armagh

我有一个名字列表(100k+在15个文件中有2-10k行)，我想要转换成一种可行的样式。我希望看到他们这样：

Antrim:O'Quinn, Quillan, Quin, Quinn, 
Armagh:Alinden, Baron, Barron, Branagan, Calan

有人知道如何在不需要大量人工干预的情况下实现这一目标吗？

Answer 1

我在另一个答案中使用了这样的东西：(编辑:修正了一些小错误和更新的语法)测试工作！

“守则”之前：

​

Sub RemoveDups()

Dim CurRow As Long, LastRow As Long, LastCol As Long, DestLast As Long, DestRng As Range, ws As Worksheet

Set ws = ActiveSheet
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

For CurRow = LastRow To 3 Step -1
     Set DestRng = ws.Range("B1:B" & CurRow - 1).Find(ws.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext)
     If DestRng Is Nothing Then
         'Do Nothing
     Else
        DestLast = ws.Cells(DestRng.Row, Columns.Count).End(xlToLeft).Column + 1
        ws.Cells(DestRng.Row, DestLast).Value = ws.Cells(CurRow, 1).Value
        ws.Cells(CurRow, 1).EntireRow.Delete xlShiftUp
     End If
     Next CurRow
ws.Columns("B:B").Cut
ws.Columns("A:A").Insert Shift:=xlToRight
Application.CutCopyMode = False

End Sub

“守则”之后：

​

Answer 2

在三个部分中，假设O'Quinn在A2中：

创建字符串

在C2中：

=IF(B1<>B2,B2&": "&A2,C1&", "&A2)  

识别那些相关的

在D2中：

=B2<>B3  

Tidy up

复制C2:D2向下适合。

选择工作表，复制，粘贴特殊值。

过滤ColumnD以选择FALSE并删除所有可见的和列D和A。

重复其他14个文件。