☰

将 B 列转换为逗号分隔列表，“ORDER BY” Colum A

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 worksheet-function microsoft-excel-2007 vba
将 B 列转换为逗号分隔列表，“ORDER BY” Colum A

尝试在 excel 中开始使用 VB 只需要了解它是如何工作的，这个任务可以在 SQL 中完成，但我真的想知道如何在 excel 中轻松完成，A 列包含标准数字，B 列模型需要在 A 列中有唯一的零件编号记录，并且在 B 列中，可以用逗号分隔的模型列表来容纳这个部分。

Column A     Column B
B00002455    C50EKB
B00002455    C50EKS
B00002455    C50EKW
B00002456    C50EKX
B00002456    C50ELB

寻找结果 -

ColumA        ColumnB 
B00002455     C50EKB, C50EKS, C50EKW 
B00002456     C50EKX,C50ELB

答案1

如果它们顺序正确，这应该可以解决问题。如果不正确，则过滤 A 列。

Sub test()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Dim i As Integer

For i = lastrow To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Cells(i - 1, 2) = Cells(i - 1, 2) & ", " & Cells(i, 2)
        Rows(i).EntireRow.Delete
    End If

Next

End Sub

如果它们没有排序并且你不想过滤，我认为你将需要一本字典。

相关内容