エクセル・マクロ・・・シート名の取得等

質問

エクセル・マクロ・・・シート名の取得等

エクセルのマクロで質問です。
ほぼ初心者です。

社内データの処理をしたいと考えています。
マクロを組みたいエクセルブックの構成としては・・・

シート名一覧
集計シート
操作

という3つのシートがあり、
その後ろに各社員のデータシートがあります。

山田太郎
田中花子
・
・
・

部署により社員数が異なるためシートの4枚目以降は
そのエクセルファイルによりシート数が異なります。

やりたいことは以下の2点です。
(１）シート名(社員名)の取得
シート名一覧に各シート名を一行ずつ入れて
一覧を作りたいです。
シート名取得＆リスト化のマクロは大体わかりますが、
「シート名一覧」、「集計シート」、「操作」の3つのシート名は
一覧から外したく、どうしたらいいのかわかりません。

また、各シート名を取得した列の横の列に
各社員のシートにあるデータの一部(セルC5:C8)を
貼り付けたいです。

(2)集計シートに各社員のシートのD列の情報(D6：D43)を順に貼り付けていく。

シート名や数が固定されたものであれば何とかできそうなのですが、
不特定になるとどうしたらよいかさっぱりわかりません。
どなたかご教授お願いいたします。

回答No.2

jcctaira · ベストアンサー

> 各社員のシートにあるデータの一部(セルC5:C8)を貼り付けたいです。
> 各社員のシートのD列の情報(D6：D43)を順に貼り付けていく。
上記、具体的にどこのセルに貼るか示されていませんので、A2セル以下にそれぞれ貼っています。

また、シート番号は４以降の個人を取得すれば良さそうですが、今後別のシートが増えても良いようにシート名で管理シートと個人シートを判断しています。

Sub シート名取得等()
　For I = 1 To Worksheets.Count
　　Select Case Worksheets(I).Name
　　　Case "シート名一覧", "集計シート", "操作"
　　　Case Else
　　　　人数 = 人数 + 1
　　　　With Worksheets("シート名一覧").Range("A2").Offset((人数 - 1))
　　　　　.Offset(0, 0) = Worksheets(I).Name
　　　　　Worksheets(I).Range("C5:C8").Copy
　　　　　.Offset(0, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
　　　　End With
　　　　With Worksheets("集計シート").Range("A2")
　　　　　Worksheets(I).Range("D6：D43").Copy
　　　　　.Offset((人数 - 1) * 38, 0).PasteSpecial Paste:=xlPasteAll
　　　　End With
　　End Select
　Next I
End Sub

お礼

迅速な答えありがとうございます。
今やってみましたが、うまくいきました。
本当に助かりました。

回答No.1

keithin

簡易版です。
sub macro1()
　dim i as long
　for i = 4 to worksheets.count
　　worksheets("シート名一覧").range(i-3, "A") = worksheets(i).name
　　worksheets("シート名一覧").range(i-3, "A").resize(1, 4) = _
　　　application.transpose(worksheets(i).range("C5:C8"))

　　worksheets("集計シート").range("A6:D43").offset(0, i-2).value = _
　　　worksheets(i).range("D6:D43")
　next i
end sub

各シートの具体的にどこに貼りたいとかの情報がありませんので，サンプルをまずはその通り動かして動作確認したあと，きちんとあなたのヤリタイ事に応用してください。

すこし「Excel VBA」の初歩の参考書を１冊手にとって，変数の使い方とか繰り返しやIf Then End Ifなどのプログラムの書き方について，勉強を進める段階に入ったと思ってください。この時点であまりネットの断片的な情報を漁って済まそうとしたり，人任せでなんでも丸投げお願いばっかりやってると，いつまでも出来ないです。

お礼

keithinさんのおっしゃる通りだと思います。、
＞この時点であまりネットの断片的な情報を漁って済まそうとしたり，人任せでなんでも丸投げお願いばっかりやってると，いつまでも出来ないです。

参考書も1冊買って勉強はしているつもりですが、
自分自身応用力がないというか、
参考書の例を使って、自分が使うものに書き換える作業が
中々うまくできていません。

ご指導ありがとうございました。