• 締切済み

Excelマクロで別シートのデータを抽出

元データには、シリアル番号、拠点、所属部署、使用者、契約番号、見積番号、更新者、導入区分、利用区分、備考など1つの機器に対して30項目の情報がセルに入力されています。 機器は、全部で2000台あり、拠点ごとに分かれているので拠点ごとに500台程度で4シートあります。 その元データから下記の集計用フォームにデータを抽出したい。 集計用フォームも4つのシートに分けているので拠点ごとに張り付けたい。 関数とも思いましたが、マクロで組んだ方が良いのではないか?と思っています。 集計用の項目は元データの項目に必ずあるので張り付けるだけなのですが・・・ <集計用> シリアル番号、使用者、拠点、導入区分、利用区分、備考 すみませんが、宜しくお願いします。

みんなの回答

  • chie65535
  • ベストアンサー率43% (8539/19413)
回答No.1

Worksheets("書き込むシート名").Select Cells(行番号,列番号).Value = Worksheets("読みたいシート名").Cells(行番号,列番号).Value ってやれば、他シートのデータを引っ張って来る事が出来ます。 値だけを持ってくるのではなく、広範囲に渡って書式や数式などもまとめてコピーしたい場合は Worksheets("読みたいシート名").Range(A3:D15).Copy Worksheets("書き込むシート名").Range(”B8:E20") でコピー出来ます。 蛇足ですが、一連の処理の最初に Application.ScreenUpdate = False を、最後に Application.ScreenUpdate = True を入れておけば、動作中に画面が再描画されないので、画面がチラツキしません。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセルのシート間のデータ抽出について

    (1)シートは「集約」用のシートと、「各月」のシートがあります。「集約」シートは、A列には日付、B列には番号、C列には備考欄という表があります。各月のシートも同様ですが、番号の項目だけどの月も「1、2、3,4~」と通し番号でつけてあります。通し番号の数は月によって異なります。多くなる月もあれば、少なくなってしまう月、何もない月もあります。(2)「集約」の日付なり番号なりを入力すると、各月のデータが一つの表に反映されるようにしたいです。何かよい手立てはないものでしょうか?よろしくお願いします。

  • エクセルVBA データを別シートに書き込む

    エクセルの、あるシートのデータを、別シートの項目条件の一致するセルに 書き出す方法を教えていただけますでしょうか?  元のシートには  A列     B列    C列 ID番号 年月日番号  金額 ID番号 年月日番号  金額 ID番号 年月日番号  金額  ・      ・       ・  ・      ・       ・ という形で、データが入っています。各列でデータには重複はありますが、   A列とB列の内容が共に同じという行は、ありません。 これを列項目がID番号、行項目が年月日番号の、金額を参照する表にしたいのです。 新しいシートのA列に降順に全ID番号を、1行目に同じく全ての年月日番号をいれ、 元のシートのC列データ(金額)を新しいシートの該当セルに書き込むには どのようにすればいいでしょうか?このような感じで‥。    月日1 月日2 月日3‥‥ ID1 金額  金額  金額 ID2 金額  金額  金額 ID3 金額  金額  金額  ・  ・  ・ 実は元のシートは10枚ほどあり(期間で区切っています)、おまけに各シートには 登場しないID番号もあります。 そこで、すべてのID番号と年月日番号をまとめ、ひとつのシートにしたいと考えた次第です。 1枚のシートならばピボットテーブルで何とかなるのですが、それをまとめようとすると、 データの量が膨大で、PCがとまってしまう(のか計算が終わらない気が‥) VBAを使えば何とかなるのかもと思いまして、質問いたしました。 エクセルは2007です。 どうぞよろしくお願いいたします。

  • エクセル・別シートに集計

    他の方のものを見ても自分に当てはめることができす、質問させて頂きます。 エクセル2010を利用しています。初心者です。よろしくお願いします。 同じエクセルブックにデータのシートが3枚あり、その内容をまとめて抽出させるシートを同じブック内に作成したいです。どなたか方法を教えていただけないでしょうか?? シート3枚のデータの合計を、○のついたセルを都道府県別に数え、データが更新されれば集計も更新できるようにしたいです。 (ちなみに前任者が作成した同じようなシート(別データを集計)は、集計シートにデータの最新番号を入力するセルがあり、そこに最新のデータ番号入力すると、データが反映されるようになっていました。同じにできなくてもよいです。) データの内容は「データ番号」「氏名」「住所」「都道府県」「電話番号」・・・「○or空欄」といった感じです。 同じ様な質問をたくさん閲覧したのですが、自分のデータに当てはめることができませんでした。 何卒よろしくお願いいたします。

  • EXCEL VBA 別シートへデータ集計

    お世話になります。 EXCEL VBAを使って下記のことを実現したいです。 [やりたいこと] [データ]シートに社員情報が4人分入っています。(本当は可変です) [データ]シートに"集計"というボタンを作ってクリックするとVBAが動いて[集計]という シートにデータを集計したいのです。この[集計]シートのフォームが少し変わっていて一人に つき3行使用します。次の人はまた3行、また次の人は3行と繰り返していきたいのです。 上記やりたい事を画像にもしてみました。 上記動作を実現するVBAコードをどなたかご教授いただけませんでしょうか? 何卒よろしくお願い致します。 環境 EXCEL 2017 Win7

  • エクセルのデータ抽出について

    WINXPを使用しています。 現在このような表を作成しております。 大区分 中区分 小区分 組識団体名 A    B     C    D会        ・        ・         ・        ・        ・ データーが約1000件ほどあります。(ここにはコード番号、総称名等が入っています) このデータがシート1にあるとして シート2上に検索画面を作って結果をシート2上、又はシート3条に結果を載せたいのです。載せ方としてはデータを同じ情報を乗せる形が良いです。もっと言えばワイルドカードも使えたらいいのですがどのようにしたら良いでしょうか?初心者の質問で申し訳ないのですがお願いいたします。何かうまく説明できているかどうか分かりませんので、ご不明な点がありましたらお知らせ下さい。お願いいたします。

  • エクセル 入力フォームのデータを別シートに書き込む

    エクセル 入力フォームのデータを別シートに書き込む方法 1.シート1のA2に日付、B2に文字列、C2に金額、D2に個数、E2に合計金額を入力する。 2.内容確認後、入力ボタンを押すと、 Sheet2の集計表リンクさせ、尚且つシート2内で1か月分の集計を取ります。 つまりシート1は入力シートで、同じセルに値を入力します(次回はデータが上書きされる)が、シート2では、集計表の1列ずつ下に新しく記録され1か月分の入力がされていく。 このような入力フォーム(マクロ)を作りたいと思っています。 初めて投稿するので、質問がよく分からないかもしれませんが、 よろしくお願いします。

  • 【エクセル】他のBookの、シート名を抽出したい

    ブックA,Bがあって、 ブックAのSheet1に「商品名、シリアル番号、商品サイズ・・・」とい ったような項目の表があります。また、Sheet1の表を基にして、数値の 違う表がSheet30まであります。 ブックBのSheet1のA列にはブックAのデータに対応するシリアル番号が ずらっと並べてあります(抜けてたり、多かったりするかもしれません)。 そこで、隣のB列に、A列に書いてあるシリアル番号をブックAから参照 (検索?)して、同じシリアル番号が入力されたセルのあるシートの、 シート名を表示したいです。おねがいします。 VLOOKUPで対応するシリアル番号のセルを探し出して、そのシートを表 示させるようなことを考えていたのだけど、参照するデータの列が左端 ではないし、検索するシートがたくさんあるし、ぜんぜんわかりませ ん。マクロを使用すれば出来るのでしょうか? エクセル2003を使用しています。 長文になってしまい、わかりにくいかと思いますが回答お願いします。

  • 別シートへ飛ばす

    エクセルの関数またはマクロでどうしたらできるのでしょうか? 内容ですが、元データはsheet1にA4に整理番号があり、B4に識別番号があり、C4に名前があり、D4にフリガナがあり、E4に区分があります。 ここでE4セルにある数種類(1~6)の区分から、1と2であれば、その左のセルの情報A4B4C4D4がsheet2のA4~E4へ上から順番に埋まっていくように飛ばすにはどうしたらいいでしょうか? たくさん羅列してあるデータから条件を満たしている人が別シートの上から順に埋めていきたいのです。 宜しくお願いします。

  • エクセル 複数シートにまたがるデータの抽出

    複数シートからのデータ抽出についていくつか拝見いたしましたが 知識が足らず、操作できませんでした。 下記のような抽出が可能であれば、ご教授いただけたらと思います。 なお、VBやマクロ等は使用したことは、ほぼありません。 シートが複数あり、またそのシートが増えていく可能性があります。 シート名→「start」「佐藤」「山本」「end」「集計1」「集計2」ととりあえず作成。 (「集計1」にて別のデータ合計をとるため、「start」「end」シートを作成しました。  なお、佐藤~山本のシートは同じ書式ですが、シート名が変わる可能性も高い。  今回したいのは「集計2」においてです) 「佐藤」シート   A   B   C   D 01 佐藤 02 \  月曜 火曜 水曜 03 6:00  1   0.5   1 04 7:00  1    1 05 ~ 18 21:00 「山本」シート   A   B   C   D 01 山本 02 \  月曜 火曜 水曜 03 6:00 04 7:00  1   1   1 05 ~ 18 21:00  1   1   1 「集計2(曜日毎で、月曜)」シート   A   B   C   D 01 月曜 02 03 6:00 佐藤 04 7:00 佐藤 山本 05 ~ 18 21:00 山本 「集計2(曜日毎で、火曜)」シート   A   B   C   D 01 火曜 02 03 6:00 佐藤 04 7:00 山本 05 ~ 18 21:00 山本 できれば、名前(シート)が非常にたくさんになる可能性があるので 集計2に出てくる名前は、詰めてが理想です。 また、できればあまり都度の細かい作業がなければありがたいです。 (利用者で、できない可能性が高い) よろしくお願い申し上げます。

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

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

専門家に質問してみよう