No.1ベストアンサー
- 回答日時:
自動にしたいということでマクロがいいかと思います。
Sheet1と1月生~12月生というシートがあり、
Sheet1に
氏名 所属 誕生月 日
と並んでいたとします。
Sheet1のどこでもいいので好きなところに
オートシェイプで図形を作り、
図形を右クリック→マクロの登録→新規作成をクリック
Sub 正方形長方形1_Click()
End Sub
みたいな感じで表示されるので、Sub ~ End Subの間に
下記のコードを貼り付けてみてください。
Application.ScreenUpdating = False
For i = 1 To 12
Range("A1").AutoFilter Field:=3, Criteria1:=i
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets(i & "月生").Range("A1")
Worksheets(i & "月生").Select
Range("A1").Select
Worksheets("Sheet1").Select
Selection.AutoFilter
Next
Application.ScreenUpdating = True
この回答へのお礼
お礼日時:2010/03/29 09:08
御礼が遅れてすみません。
ありがとうございます!
「自動」とするとやっぱりマクロですか・・・。
マクロから逃げててはいけませんよね。
頑張ります!
ありがとうございました。
No.2
- 回答日時:
こんばんは!
参考になるかどうか判りませんが・・・
↓の画像のように勝手に表を作ってみました。
まず、元データのSheet1に作業用の列(表)を作っています。
作業列G2セルに
=IF($C2=G$1,ROW(A1),"")
という数式を入れ、列方向と行方向にオートフィルでコピーします。
そして、Sheet2~Sheet13は全て同じ配列だとして、
Sheet2を開いたまま、Shiftキーを押しながら、画面の下側にあるSheet見出しのSheet13をクリックします。
これでSheet2~Sheet13が作業グループ化されましたので、Sheet2だけに数式を入れればSheet13まで同じ数式が入力されます。
Sheet2のA3セルに
=IF(COUNT(OFFSET(Sheet1!$F$2:$F100,,MATCH($A$1,Sheet1!$G$1:$R$1,0),,1))<ROW(A1),"",INDEX(Sheet1!A$2:A100,SMALL(OFFSET(Sheet1!$F$2:$F$100,,MATCH($A$1,Sheet1!$G$1:$R$1,0),,1),ROW(A1))))
という数式を入れ、列方向と行方向にオートフィルでコピーします。
(数式はSheet1の100行目まで対応できるようにしています)
最後にSheet見出し上で右クリック → 作業グループ解除
以上で完了です。
これで各SheetのA1セルに月の数値を入力すれば生まれ月に振り分けられると思います。
以上、長々と書きましたが
参考になれば幸いです。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) Excel セルに入っている日付を参照して、別シートのリストを表示させたい 1 2022/04/12 17:02
- Excel(エクセル) 3つのエクセルをそれぞれのシートのセルに反映させたいときはどうしたらいいでしょうか? 例えば①シート 4 2023/04/25 20:13
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) エクセルで小の月(29日以下)の空白列を自動で塗りつぶしたい 2 2023/01/05 13:21
- Visual Basic(VBA) AdvancedFilterについての質問 2 2022/07/02 22:58
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Excel(エクセル) vba シートの並び替え 1 2023/04/19 13:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
F9キーについて。
-
Excel 小さくなったスクロール...
-
Excel関数について教えてくださ...
-
計算能力
-
Excelセルを跨いで合計を出す方法
-
Excelに詳しい方! B列が「日...
-
エクセルでファイルの最終更新...
-
Excelのピボットグラフの作り方...
-
Excelファイルが開けません
-
Excel 2019 [オプション]の[リボンのユ...
-
【EXCEL】画像の黄色部分の抽出...
-
スプレッドシートの関数につい...
-
エクセルで 自動的に◯や数字を...
-
excel2013 MonthDays 関数が使...
-
シフト表をエクセルで作るとき...
-
EXCELの散布図で日付が1900年に...
-
特定の文字列を含む、住所を抽...
-
Excel分数の表示について
-
エクセルの関数について教えて...
-
マイクロソフトのPADを使ってい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報