列Bをコンマ区切りリスト、「ORDER BY」列Aに変換します

VBをExcelで開始しようとすると、それがどのように機能するかを理解する必要があります、このタスクはSQLで実行できますが、Excel A列でパー番号が含まれ、B列モデルが列Aで必要な一意の部品番号で簡単に実行できる方法を本当に知りたいですrecord、および列bには、この部分が適合するモデルのコマ区切りリスト。

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

結果を探しています-

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

— もひこ
ソース

を使用して、scripting.dictionary必要な処理を実行する配列を作成してみてください

— Raystafarian

スーパーユーザーへようこそ。自分の投稿を自由に編集できますが、保護のために、元のユーザーアカウントでこれを行う必要があります。2番目のアカウントを作成したようです。これは、スレッド内でコメントしたり、回答を受け入れたりする能力にも影響します。参照してください私のアカウントを統合問題を解決するであろう、あなたのアカウントをマージ取得します。

— fixer1234

正常に動作していれば、これでうまくいくはずです。そうでない場合は、列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

それらが整然としておらず、フィルタリングしたくない場合は、辞書が必要になると思います。

— レイスタファリアン
ソース