Active Directoryから書き出したグループ一覧とユーザー一覧からグループに所属しているユーザー一覧が作りたい

csvdeコマンドでCSVに書き出したグループ一覧とユーザー一覧から、各グループに所属しているユーザーの一覧をつくりたいのですが、ユーザー、グループとも数百あるため手作業でやるのはきついです。

エクセルが苦手なのでご教授お願いいたします。

関数、マクロ等、やり方は問いません。

■参考にしたcsvdeコマンドの解説ページ
https://saku-jp.hatenablog.com/entry/2017/01/11/205945

＜ユーザ一覧＞

ユーザ名	グループ1	グループ2	グループ・・・
Aさん	グルーﾌﾟ1	グループ3	・・・
Bさん	グループ1	グループ2	・・・
Cさん	グループ2	グループ3	・・・

＜作りたい表＞
|グループ名|ユーザ1|ユーザ2|ユーザ・・・|
|:--|:--:|--:|
|グループ1|Aさん|Bさん|・・・|
|グループ2|Bさん|Cさん|・・・|
|グループ3|Aさん|Cさん|・・・|

行動規範の内容に同意します

回答1件

マクロを用いた例を書いてみました。
流れはざっと以下の通りです。やってみて分からなければ聞いてください。

① CSVに書き出したグループ一覧とユーザー一覧をExcelで開く
② 新規Excelファイルを作る
③ ①のシートを②にコピーする
④ ①のシートを閉じる
⑤ VBAの画面で以下のコードを入力
⑥ マクロを実行

VBA
1Sub sample()
2    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
3    Set ws1 = Sheets("ユーザー一覧")
4    Set ws2 = Sheets("グループ一覧")
5    Set ws3 = Sheets("Sheet1")
6    
7    Dim userlist As Range
8    Set userlist = ws1.UsedRange
9    
10    Dim grouplist As Range
11    Set grouplist = ws2.UsedRange
12    
13    Dim kekkalist As Range
14    grouplist.Copy ws3.Cells.Resize(1, 1)
15    Set kekkalist = ws3.UsedRange
16    
17    Dim i, j, c
18    For i = 2 To kekkalist.Rows.Count
19        c = 1
20        For j = 2 To userlist.Rows.Count
21            If IsMatch(kekkalist(i, 1), userlist.Rows(j)) Then
22                kekkalist(i, 1).Offset(, c).Value = userlist(j, 1).Value
23                c = c + 1
24            End If
25        Next
26    Next
27End Sub
28Function IsMatch(s As Range, r As Range) As Boolean
29    On Error Resume Next
30    IsMatch = (WorksheetFunction.Match(s, r, False) > 0)
31End Function
32