
VBA初心者です。700行くらいあるリストの中から所属別の名簿を作りたいのですが、マクロを使えば簡単に出来ますか?
データは、 A列にNO.、B列に氏名、C列に所属 となっていて、C列の所属ごとにSheet2,Sheet3・・・にB列の氏名だけの名簿を作りたいのです。
例えば、C列が”総務課”の人の氏名(B列)をSheet2のCell("A2")から行方向に、C列が”会計課”の人の氏名はSheet3のCell("A2")から行方向に という感じです。
Do~Loop を使ってみたり、If~Then を使ってみたりするのですがうまく貼り付けられません。
データの最終行が変化するので範囲の指定もよく分かりません。
どなたか教えて下さい。
No.4ベストアンサー
- 回答日時:
#3です。
> できますか?
出来るでしょうね。
抜き出し処理が同じなら、コピー&貼り付け部分を見直せば良い訳です。
ただ、仕様が見えない部分もあり、何処までやるかで処理の難易度も大幅に変わります。
任意のシートには先月のデータがあるのでしょうから、これをどう扱うか。
先月のデータは消してしまい、一覧のソート順は毎回同じで、課の統廃合などによる増減が絶対に無いならそれ程でも無いでしょうけど、一覧のソート順が変わる「可能性がある」というだけで、任意シートの貼り付け先を探して処理をしないといけませんし、課が発足したら任意シートに追加しないといけないなど、例外的な処理も多くなります。
丸投げで「これも作って」では知識も向上しないですし、自分なりに挑戦して、どうしても不明な部分に絞って質問されては如何でしょう?
---
と、、、突き放すだけというのも何ですので参考として、新規ブックに列展開の例を。
Sub Test1()
Dim tws As Worksheet, ws As Worksheet
Dim r As Range, ro As Range, tr As Range
Set tws = ActiveSheet
Set r = tws.Range("C2"): Set ro = r.Offset(1, 0)
Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Do While r.Value <> ""
Do While r.Value = ro.Value
Set ro = ro.Offset(1, 0)
Loop
Set tr = ws.Range("IV1").End(xlToLeft).Offset(0, 1)
tr.Value = r.Value
tws.Range(r.Offset(0, -1), ro.Offset(-1, -1)).Copy _
Destination:=tr.Offset(1, 0)
Set r = ro
Loop
ws.Columns(1).Delete
With ws.Range("A1").CurrentRegion
.Offset(.Rows.Count, 0).Resize(1) = _
"=counta(A2:A" & .Rows.Count & ")"
End With
End Sub
ありがとうございました。&ごめんなさい(>_<)もう少し自分で考えてから質問するべきですよね。私が何日やっても出来なかったことを、すぐに回答してもらえたので、ついつい・・・。もっとベ勉強します。
No.3
- 回答日時:
つい最近、ここで同じような質問に答えました。
C列でソートされているとして。
Sub Test()
Dim tws As Worksheet, ws As Worksheet
Dim r As Range, ro As Range, LRow As Long
Set tws = ActiveSheet
Set r = tws.Range("C2"): Set ro = r.Offset(1, 0)
Do While r.Value <> ""
Do While r.Value = ro.Value
Set ro = ro.Offset(1, 0)
Loop
Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
On Error Resume Next
ws.Name = r.Value
tws.Range("B1").Copy Destination:=ws.Range("A1")
tws.Range(r.Offset(0, -1), ro.Offset(-1, -1)).Copy _
Destination:=ws.Range("A2")
Set r = ro
Loop
End Sub
この回答への補足
ところで、もう一つ教えていただけませんでしょうか?
同じ一覧を使って、部署ごとに抜き出すのは一緒なのですが、今度はシートを増やしていくのではなく任意のシートにA列は総務課、B列は会計課、C列は施設課という具合に列方向へ名簿を展開したいのです。そして、それぞれの部署の合計人数を最後のセルに入るようにしたいのですが、できますか?
毎月、月初めに処理をするので、上書きをしていきたいのです。お手数でしょうが、どうかよろしくお願いします。
大変ありがとうございました。シート名まで変わるので感激しました!僕にはチョット難しい構文ですが、ところどころ変えて使ってみます。
No.1
- 回答日時:
もちろんVBAを使っても出来ますけど…
オートフィルターで部署ごとの名簿を表示して、コピー範囲を指定。 その後、貼りつけ先のシートを選んで、「値のみ」「行列を入れ替える」で貼りつけても、良いのかなと思いました。
ちなみに、最終行を取得するには、
n=range("A6554").end(xlup).rows.count
とすると、最後の行までの行数を数えてくれます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
URLのリンク切れをマクロを使っ...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
エクセル 2つの表の並べ替え
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
オートフィルタをマクロで作成...
-
Changeイベントでの複数セルの...
-
複数csvを横に追加していくマク...
-
VBAで、離れた複数の列に対して...
-
データグリッドビューの一番最...
-
エクセル アクティブセルから...
-
SUM関数の範囲を変数を代入して...
-
VBAで指定範囲内の空白セルを左...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
VBAで指定範囲内の空白セルを左...
-
【Excel VBA】 B列に特定の文字...
-
VBAを使って検索したセルをコピ...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
-
データグリッドビューの一番最...
-
rowsとcolsの意味
-
VBAでのリスト不一致抽出について
おすすめ情報