excelで縦1列の名簿を縦3列の名簿に反映

質問

excelでデータが縦に並んだ、名簿のマスターデータの
ブックがあります。（添付画像上部参照）

そのマスターデータから、別のexcelブックに
課名と氏名のみを抽出し、縦3列の名簿を
作成したいです。（添付画像下部参照）

今は課ごとにコピー＆ペーストにて対応していますが、
マスターデータが変更されたら、縦3列の名簿の内容も
自動的に反映されるようにしたいです。

また、縦3列の名簿は、各課ごとに1行以上の
空白行を挿入して、課の区切りが
分かりやすいようにしたいです。

課の人数は流動的なので、課のセルの固定はできません。

何かいい方法はないでしょうか。
よろしくお願いします。

Excel2013

回答No.5

tsubu-yuki · ベストアンサー

同様の意見なんですが・・
やはり、関数などの一般機能では実現は難しいかなと思いますよ。
せめて「課ごとに列を組む」だったら何とかなりそうな気もしますが、
同じ列に複数の課を抽出、しかも人数（行数）が流動的となると
完全な自動化は相当な知識と工夫と努力が必要でしょうね。
それならコピー貼り付けしてやる方が断然早かろうと思います。

ＶＢＡで頑張ればなんとか作れるかもしれませんが・・
それも現状では高いハードルなのかなぁ、というのが正直なところです。
「エクセルの得意分野、表計算の要素が無いですもんね。」
という言葉の意味が解ってから取り組むべき課題なのかもしれません。

お礼

ご回答ありがとうございました。
新たに質問をしましたのでよろしければご参照ください。

回答No.7

imogasi

#4です。
ＶＢＡは経験ないのだろうが、臭いだけ、嗅いでください。
ーー
この質問は、分類すれば、エクセルのシートデータの、「表の組換え」問題と思う。エクセル「関数」では、むつかしい課題です。たとえば条件を付けて抜き出す問題でさえ式が複雑になる。このニーズはあると思うが、あまりエクセルでは対応していない（メニューなどが作られてない。）並び換えや、コピーの貼り付け時の「行と列を入れ替える」など以外はない。
ニーズはあると思うが、Ｅｘｃｅｌでは、各人の場合が色々で、「いろいろなニーズの標準パターンに分類すること」がむつかしい、ためと思う。
ーー
ＶＢＡといっているものの１例です。雰囲気だけでも、味わって。
「課名」の列があって、その列で並べ替えされている、として（必須条件です）、それとSheet2という名前のシートを作っておくこと、
例データ　Sheet１でＡ１：Ｃ３１
課名　 項目１ 項目２
総務 　1 山下
総務　 2 山本
総務 　3 上野
総務　 4 木之下
総務 　5 小森
総務　 6 小川
総務 　7 戸板
総務　 8 目黒
庶務 　9 岩下
庶務 　10 　近藤
庶務 　11　 川本
広報 　12　 川上
広報 　13 　上田
広報 　14　 津守
広報 　15 　河野
広報 　16　 木村
広報 　17　 岸上
広報 　18　 山森
広報 　19 　下岸
広報 　20　 中野
人事 　21 　谷上
労務　 22　 上村
労務　 23　 下村
労務 　24 　峰木
労務　 25　 沼田
発注 　26　 馬野
発注 　27 　家里
課長付け　 28 菅野
課長付け 　29 　大家
用務 　30　 沼上
ーー
課の中で、たとえば７行（＝７人）を越えたら、次の３列のブロックに出す、などの改良は簡単。
これを３列ごとに、課ごとに、横方向にデータを流す表に組み替えるのが目的です。
ＶＢＥ画面に（ＡＬＴ＋Ｆ１１キーで出る）標準モジュールに、下記をコピペ。
Sub test02()
Set sh1 = Worksheets("Sheet1") '原シート
Set sh2 = Worksheets("Sheet2") '結果シート
lr = Worksheets("Sheet1").Range("A100000").End(xlUp).Row '原シート最終行取得
MsgBox lr
'---
c = 1 '結果シートの行のポインター数を初期化
j = 1 '結果シートの列のポインター数を初期化
'－－－
i = 1 '第I行目の特殊扱い　見出しセット
GoSub midasi
i = 2 '第２行目の特殊扱い
GoSub meisai
'--原シート第2行目から
For i = 3 To lr
If sh1.Cells(i, "A") = sh1.Cells(i - 1, "A") Then
GoSub meisai
Else
'--書き出しについて、課名が変わったので、次の明細ブロックへ右移動
c = c + 4 '列を４列右を差す　c=c+3に変えると余白列はなくなる
j = 1 '行は２に改める
GoSub midasi
GoSub meisai
End If
Next i
Exit Sub
'－－－－－
meisai:
'--結果シートへ書き出すサブルーチン
sh2.Cells(j, c + 0) = sh1.Cells(i, "A")
sh2.Cells(j, c + 1) = sh1.Cells(i, "B")
sh2.Cells(j, c + 2) = sh1.Cells(i, "c")
j = j + 1
Return
midasi:
sh2.Cells(j, c + 0) = "課名"
sh2.Cells(j, c + 1) = "項目1"
sh2.Cells(j, c + 2) = "項目2"
j = j + 1
Return
End Sub
ーーー
実行して結果は
Ｓｈｅｅｔ２に
課名 項目1 項目2 課名 項目1 項目2 課名 項目1 項目2
総務 1 山下 庶務 9 岩下 広報 12 川上
総務 2 山本 庶務 10 近藤 広報 13 上田
総務 3 上野 庶務 11 川本 広報 14 津守
総務 4 木之下 広報 15 河野
総務 5 小森 広報 16 木村
総務 6 小川 広報 17 岸上
総務 7 戸板 広報 18 山森
総務 8 目黒 広報 19 下岸
広報 20 中野
ーー
３ブロック分だけ表示している。各ブロックの間は1列余白列を入れている。
Ｌ列以下の次の列から掲出を省略。

お礼

ご回答ありがとうございました。
新たに質問をしましたのでよろしければご参照ください。

回答No.6

SI299792

やはり、マクロしかないと思います。
３列の頭に来る、管理課・経理課・総務課はあまり変化しないだろうと思い、出力ブックを参照するようにしました。
出力ブックのB3・I3・P3は必ず入れておいてください
With Windows("Book2.xlsx").ActiveSheetが出力ブックです。Book2.xlsxを出力ブックに変更して下さい。
V100が出力ブックの最終行です。出力ブックの大きさに合わせて変えてください。

動かし方ですが、マスターブックと出力ブックの両方を開きます。
マスターブックを選択し、マスターブック上で動かしてください。
'
Option Explicit
'
Sub Macro1()
'
　　Dim iys As Integer
　　Dim iy As Integer
　　Dim ox As Integer
　　Dim oy As Integer
　　Dim size As Integer
　　Dim OldPost As String
　　Dim NewPost As String
'
　　iys = 5
　　ox = 2
　　oy = 3
　　With Windows("Book1.xlsx").ActiveSheet　　 '出力ワークブックを指定
　　.[C3:H3,J3:O3,Q3:V3,B4:V100].ClearContents '出力ワークブックの大きさ
　　OldPost = [M5]
　　'
　　For iy = 5 To [C4].End(xlDown).Row + 1
　　　　size = size + 1
　　　　NewPost = Cells(iy, "M")

　　　　If OldPost <> NewPost Then
　　　　　　size = iy - iys
'
　　　　　　If .Cells(3, ox + 7) = OldPost Then
　　　　　　　　ox = ox + 7
　　　　　　　　oy = 3
　　　　　　End If
　　　　　　.Cells(oy, ox) = OldPost
　　　　　　.Cells(oy, ox + 1).Resize(size, 1) = Cells(iys, "C").Resize(size, 1).Value
　　　　　　oy = oy + size + 1
　　　　　　iys = iy
　　　　End If
　　　　OldPost = NewPost
　　Next iy
　　End With
End Sub

お礼

ご回答ありがとうございました。
新たに質問をしましたのでよろしければご参照ください。

回答No.4

imogasi

関数では、むつかしいと思う。
質問では、新しく表示するルールを明文化すること。
画像添付は、判り易いと思っているのだろうが、正確には、ほしいことを
語らないものだ。コンピュターで何かをやろうとすれば文章で書く訓練が必要だ。
それができない（習慣や、文章力など）のに、それだけ難しいことを望んでいるということ
（１）１つの課の最大行数
（２）列は３列で１単位か？
（３）何単位まで横に並べるのか
（４）元データにはあっても、捨てる列もあるのかな。
ーー
やはりＶＢＡが必要とおもう。
生かし、できないのだろうな。
であれ手作業でやるしかないと思う。
こういう課題は、Ａｃｃｅｓｓなどの使う人が、初心者時代に工夫して印刷したりするものだ。

お礼

ご回答ありがとうございました。
新たに質問をしましたのでよろしければご参照ください。

補足

ご回答ありがとうございます。
無知で仰っていることの半分もわからないのですが、
とりあえず…

（１）１つの課の最大行数
今のところは1～30程ですが、将来的にはもっと増えるかもしれません。

（２）列は３列で１単位か？
3列で1単位という質問の意味がよくわかりませんでした。

（３）何単位まで横に並べるのか
何単位まで横に並べるのかという質問の意味がわかりませんでした。

（４）元データにはあっても、捨てる列もあるのかな。
捨てる行はありますが、捨てる列はありません。

よろしくお願いします。

回答No.3

msMike

》 課の人数は流動的なので、課のセルの固定はできません
流動的」が「規則性がない」ということなら、ワークシート関数だけで実現するのは不可能です。なぜなら、規則に基づいて計算するのが Excel等の表計算ソフトだからです。

お礼

ご回答ありがとうございます。

回答No.2

aokii

添付画像下部の船津美幸をC29セルに表示させると仮定して、
管理課の例です。
A29から下に管理課1、管理課2...と入力し、
Q5セルに以下の式を入れて、下にドラッグコピーし、
=IF(M5=M4,Q4+1,1)
A5セルに以下の式を入れて、下にドラッグコピーし、
=M5&Q5
C29セルに以下の式を入れて下にドラッグコピーしてみてください。
=VLOOKUP(A29,A1:C25,3,FALSE)

お礼

ご回答ありがとうございました。
新たに質問をしましたのでよろしければご参照ください。

回答No.1

aokii

職員コードによるデータベースでアクセスを使ったほうがよさそうです。

お礼

ご回答ありがとうございます。
Accessが使えればいいのですが、知識が全くなくて使えません。