私はいくつかのExcelワークシートを次のスタイルで持っています
組織 1
名前 職業
クリス - 請負業者
ジェーン - 従業員
組織 2
名前 職業
ボブ - 施設
Trey - ソフトウェア開発者
そして、これらのワークシートを次の形式のマスター ワークシートに結合したいと考えています。
組織名 職業
1 - クリス - 請負業者
1 - ジェーン - 従業員
2 - ボブ - 設備
2 - Trey - ソフトウェア開発者
VBA を使用すると、すべてのデータを 1 つのワークシートに取り込むことができます。
NumSheets = Worksheets.Count
Worksheets(1).Select
Sheets.Add
ActiveSheet.Name = "All"
For X = 1 To NumSheets
Worksheets(X + 1).Select
curAgency = ActiveSheet.Name
NumRows = ActiveSheet.UsedRange.Rows.Count
Rows("5:" & NumRows).Select
Selection.Copy
Worksheets("All").Select
ActiveSheet.Range("B1").Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Worksheets(X + 1).Select
Range("A1").Select
Next X
Worksheets("All").Select
Range("A1").Select
End Sub
しかし、マスター リストの各グループに列を挿入して組織名を追加する方法がわかりません。