• 締切済み

エクセルマクロでシート分けとシート名変更するには？

商品一覧(2,000件)があり、それを商品グループ毎シート分けし、そのシート名は商品グループ名に変更したいのですが・・・ 過去のものまであるので商品が多いです。商品グループは10グループぐらいですが、フィルタをかけて一つ一つするには時間がかかります。 マクロで一括処理するにはどうしたら良いでしょうか。 列はＡ～Ｋぐらいまであります。 ・sheet1商品一覧（列A～Kまで項目があり、この中には商品グループも入っています） ・sheet2商品グループ（A列にグループ名が記入されています） どなたかおわかりになる方、どうぞお教え下さい。 よろしくお願いします。

みんなの回答

  • NCU
  • ベストアンサー率10% (32/318)
回答No.2

よく勘違いされている方がいらっしゃるのですが、どこがわからないかを具体的に記載して下さい。

全文を見る
すると、全ての回答が全文表示されます。
  • toshi_2000
  • ベストアンサー率30% (306/1002)
回答No.1

前提条件 １．グループ名のシートが既にあること。 ２．グループ名がsheet1のA列にあること。（そうでなければマクロの変更が必要です。 max行 = Cells(1, 1).End(xlDown).Row For i = 1 To max行 Sheets("sheet1").Select Range(Cells(i, 1), Cells(i, 11)).Copy Sheets("" & Cells(i, 1) & "").Select last行 = Cells(65536, 1).End(xlUp).Row Cells(last行 + 1, 1).Select ActiveSheet.Paste Next

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

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

    エクセル・マクロ・・・シート名の取得等 エクセルのマクロで質問です。 ほぼ初心者です。 社内データの処理をしたいと考えています。 マクロを組みたいエクセルブックの構成としては・・・ シート名一覧 集計シート 操作 という3つのシートがあり、 その後ろに各社員のデータシートがあります。 山田太郎 田中花子 ・ ・ ・ 部署により社員数が異なるためシートの4枚目以降は そのエクセルファイルによりシート数が異なります。 やりたいことは以下の2点です。 (１）シート名(社員名)の取得 シート名一覧に各シート名を一行ずつ入れて 一覧を作りたいです。 シート名取得＆リスト化のマクロは大体わかりますが、 「シート名一覧」、「集計シート」、「操作」の3つのシート名は 一覧から外したく、どうしたらいいのかわかりません。 また、各シート名を取得した列の横の列に 各社員のシートにあるデータの一部(セルC5:C8)を 貼り付けたいです。 (2)集計シートに各社員のシートのD列の情報(D6：D43)を順に貼り付けていく。 シート名や数が固定されたものであれば何とかできそうなのですが、 不特定になるとどうしたらよいかさっぱりわかりません。 どなたかご教授お願いいたします。

  • エクセルでのマクロを教えて

    下記のようなものをみたすマクロは組めますか？ ファイルにシートが何種類かあります。 sheet1には各店の集計データーがあります。 その中にA列には集計の項目名がAZ列まであり 1行目には店舗名が10種類あります。 sheet2からはsheet名をsheet1に記入されている1行目にしている店舗名にしてあります。 またA列には集計の項目名がありますが sheet1にある項目と全く同じではなく 項目は少なくなっています。 また、sheet2からの店舗名にはsheet1の集計表にはない 店舗名もあります。 このsheet1のデーターをもとに sheet2の1行目の項目と一致する項目の値や数字を sheet1からコピーするというものです。 よろしくお願いします。

  • シート名について教えて下さい

    例えば・・・・マクロを実行すれば、 (1)エクセルブックの　沢山あるシートの一番前に、『シート名一覧』のシートを追加 (2)『シート名一覧』シートのA列に、全シート名を表示 　　　　 A 1 　シート名一覧 2 　 源語 3 　 文章作り 4 　 単語帳　 5 　 担当 6 　 ： 7 　 ： (3)『シート名一覧』シートのA1から、シート名と連動（順番に） (4)例えば、A4『単語帳』を『四文字熟語』に変えると、最初から4番目のシート名が連動して変わる そのようなマクロを　どうか教えて下さい！ 宜しくお願いします。

  • ★エクセルマクロコード教えていただけますでしょうか

    マクロのコードを組みたいと考えておりますが、 ほとんど初心者のため、お詳しい方の力を貸していただきたい次第でございます。 m(__)m ○オートフィルターーでデータをソートし、そのソートごとのシートを自動作成。 　その後、そのシートを各フォルダに保存したい。 あるデスクトップ上にあるエクセルシート「管理DB」の「sheet１」にある管理データ A列（グループa～e）、B列（登録日）、C列（ステータス）によって構成されているシートで、 １．A列「グループ」「a」でオートフィルター ２．その中でB列、「登録日」が「2012年9月」以前のものをオートフィルター ３．その中で、さらに「ステータス」が「在庫中」のものをオートフィルター ４．3段階のオートフィルター後にできた結果を、別のエクセルシートとして作成。 ５．そのエクセルシートをデスクトップにある「フォルダX本部」に保存。 １～５の一連の作業をグループがなくなるまで繰り返したいと考えています。 １．A列「グループ」「b」でオートフィルター ２．その中でB列、「登録日」が「2012年9月」以前のものをオートフィルター ３．その中で、さらに「ステータス」が「在庫中」のものをオートフィルター ４．3段階のオートフィルター後にできた結果を、別のエクセルシートとして作成。 ５．そのエクセルシートをデスクトップにある「フォルダY本部」に保存。 ※一連の作業の中で、グループ名と、シートの保存先が変わる以外、この作業の繰り返し。 以上の作業を実行するマクロを組むことは可能でしょうか。 また、マクロのコードを教えていただけると幸いです。 マクロについてお詳しい方、何卒よろしくお願いいたします。

  • EXCELマクロ　シートの追加、シート名の変更

    おはようございます。 １つのブックで１ヶ月分のシートをつくるマクロを考えています。 月次処理シートのA列に例えば８月であれば、 0801　0802　0803・・・と入力。（もしくは0801から0831までをマクロで自動表示） シートを１ヶ月分自動で生成するマクロを実行して、シート名を0801、0802、・・・とそれぞれ自動で変更。 １ヶ月分のブックの完成としたいのですが、どういうマクロを組めばよいでしょうか。

  • 【エクセルマクロ】シート間のデータ切取⇒貼付マクロをくみたいです。

    シートが２つあって、それぞれ「商品・顧客マスタ３」、「取引終了データ」というシート名です。 「商品・顧客マスタ３」のシートの列Ａ～Ｋまでをドラッグしている状態で「CTRL+SHIFT+U」 をおすと、切り取り処理されて、「取引終了データ」シートの同じＡ～Ｋまでに「すべて貼り付け」されるマクロをつくりたいのですが、スキル不足からできません。ぜひ教えていただけないでしょうか？ 【備考】 ・「商品・顧客マスタ３」シートのドラッグしている行は様々で１行限りのときもあれば、５行（超え）等になるときもあります。列はつねにＡ～Ｋまでです。例　５行のとき⇒Ａ４０１～Ｋ４０５までをドラッグしている状態。常に連続しています。 ・「取引終了データ」の貼り付け位置はＡ～Ｋ列の文字が入っていないところの一番最初の位置にしたい 　です。現在では、Ａ１～Ｋ４０２までデータがぎっちり入っていて、Ａ４０３を先頭に切り取ったデータを貼り付けしたいです。（データのはいっていないＡ列の一番上にはりつけできれば十分です。） ・貼り付け後は、「商品・顧客マスタ３」の空欄になったところを「削除」して上方向につめたいです。削除は行 　全体ではなく、列Ａ～Ｋまでとしたいです。 なお、ＥＸＣＥＬ２００２をビスタで使っています。 お手数をおかけいたしますが、ぜひよろしくお願いいたします。

  • EXCELのシート名を一括変更するマクロ

    マクロの超初心者ですが、EXCELのシート名を一括変更するマクロを考えてます。 例えば、1つのBOOKで「1」～「31」までの名前が入っているシートを予め用意しておいて、マクロを実行するとメッセージボックスがでてきて、そこに200806と入力するとシート名の「1」が『20080601』に、「2」が『20080602』という感じで31日分自動でできるような方法はないでしょうか？いつも手入力でやっていて大変なので、なにか方法があれば教えて欲しいです。お願いします。

  • エクセルのマクロで行いたいのですが。シート１からシート３（ジャンル別の

    エクセルのマクロで行いたいのですが。シート１からシート３（ジャンル別の商品データ）にあるデータを入荷した商品名で検索し、その検索結果の行を入荷した数量分コピーして、シート４（印刷）に上から順に貼り付けます。その結果をバーコードラベルで印刷し、商品に貼り付けていきたのですがどなたか教えてください。現在は、いちいちシート毎で「Ctrl＋F」で検索画面を出し、商品名を検索し、なければ別のシートで検索し、該当するものが見つかれば選択して、行をコピーして印刷シートに貼り付けています。とても時間がかかっています。 シート１から３の構成は、ジャンル別で分かれていますが、 A列：商品名、B列：メーカーコード、C列：自社コード、D列：売価、E列：原価、F列：登録日 です。バーコード印刷のマクロは出来てます。 複数のシートから検索し、コピーして、印刷シートに貼り付けるマクロです。 エクセルは2003で、OSはXPのSP3です。

  • シート名変更のマクロ

    QNo.4400605『エクセルでシート数を指定して挿入するマクロはどうやって作ったらいいでしょうか。例えばA1セルに挿入したいシートの数を入力するとその数のシートが作成されるというようなマクロを作りたいのですが』という質問をしてそれについては解決しましたが、作成されたシートの名前を1～40のような数字に変更するマクロが分かりません。作成するシートの枚数は決まってなく、25シートであったり、40シートだったりします。A1:A40に1～40と変更後のシート名を入力して、それをシート名に反映させるマクロは作れたのですが、毎回シート枚数が変わるので「インデックスが有効範囲にありません」と出てしまいます。型としては、元シートがあり、そこでシート数を指定しシートを挿入し、そのできたシートに数字の名前をつけたいと考えています。長々なりましたが教えて下さい。

  • Excel マクロ データ集計

    Excel マクロ データ集計 Sheet1にある情報を集計して、集計結果をSheet2に貼り付けるマクロを考えています。 「Sheet1」のA列、B列、C列が合致した場合に同じ商品とみなします。 C列で「新鮮」とついている場合には、商品名で一致させて、Sheet2の 同じ商品名のところに記載します。 「Sheet2」に貼り付ける際、「Sheet1」のA列は不要です。 どのようなマクロを作成すればよろしいでしょうか。 画像を添付します。 「Sheet2」は完成形です。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する