• 締切済み

Excelのマクロでコピー&ペーストの作業

Excelのマクロでコピー&ペーストの作業を楽にしたいです。 以下、作業内容です。 現在、月別に担当の製品群のフォーキャストファイルを作成しています。 ※ここでは担当商材はカメラとして、作成ファイルは「月別カメラFcst.xlsx」とします。 国別にシートがわかれています。 そのファイルに書かれている内容を他の製品群も入っている当月のフォーキャストファイルに記入する作業が発生しています。 ※当月Fcstファイル.xlsx 今月はJuneだとします。 国別にファイルを開いて6月の商品(A,B,C,D)の数字とコメントをコピーして、当月Fcstファイル.xlsxの該当の国、商品に当てはまる箇所に打ち込んでいきます。 ※添付の写真も参照ください。 よろしくお願いします。

みんなの回答

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

まず左側では『ヨーロッパ』はわかりますよね。 で、なぜ右側では『カメラ』のシートに書き込まれるのか? >作成ファイルは「月別カメラFcst.xlsx」 がその理由であるのなら、『掃除機』と言う別のBookが存在する? また >今月はJuneだとします。 なぜ6月のデータが先頭なのか? 1月ではないのか? 或いは先頭は適当になっているのか? (と言うか何故に英語?) 『BGT』・『Sales Plan』は2つで1組なのか? 『ACT』とは何なのか?そこにある『1』とは何を指すのか? 某サイトからこちらに来たようで画像は見やすいかもですが、 情報が足りないと思いますよ。 それぞれのBookの規則性(名前)についても見えてこない。 どのような名前のBookから、どのような名前のBookに転記したいのか?を はっきりさせた方がよいかと。 これならいくつかのBookを渡して委託した方が早いかもですよ。

関連するQ&A

  • 可視セルから可視セルへのコピー&ペーストについて

    こんばんは、教えてください!! 可視セル(表)から可視セル(表)へのコピーはどうすれば可能でしょうか。 今1つのブックに表があって4人で表を埋めていく作業をしています。 表にフィルターをかけてそれぞれ担当の項目をフィルターで表示させ表を完成させていく作業をしています。また1つのファイルを共有にしていなく、それぞれコピーをしているので最終的に4つのファイル(同じファイルで各担当の項目のみ埋まっているもの)が集まりそれらを1つにまとめなければなりません。 今、まとめている作業をしているのですが、まとめる表も担当の表もどちらもフィルターをかけた状態にしてコピー・ペーストをしようとしています。 そうすると例えばフィルターを使ってAさんのファイルを抽出し、まとめる表にコピーをしようと可視セルの選択をしてコピーを使ってみたのですが、貼り付け たものは表示されていない行にも貼り付けされます。 可視セルのみを可視セルにペーストするにはどうすればいいのでしょうか。 かなり長い文章になりました、すみませんが助けてください!!!!

  • マクロで数式を書き換えたい。

    【処理概要】 担当者一覧ファイルがあり、そのファイルには各担当者の目標と売上がデータが入っています。 各担当者に目標を入力してもらうため、担当者別にファイルを作成し、かつ目標列は各担当者ファイルの対応する列を参照する数式に変更します。  例)担当者一覧.xlsxの「C2」はA.xlsxの「C2」を参照する。(数式:=[佐藤.xlsx]Sheet1!C2) 【悩み】 担当者別にファイルを作成するマクロは出来たのですが、目標列に元から入っている数式をうまく変更することが出来ません。 例えば、添付画像の場合、担当者一覧ファイルの目標列の数式は上から (1) =[佐藤.xlsx]Sheet1!C2 =[佐藤.xlsx]Sheet1!C3 =[佐藤.xlsx]Sheet1!C4 =[鈴木.xlsx]Sheet1!C2 =[鈴木.xlsx]Sheet1!C3 =[山田.xlsx]Sheet1!C2 =[山田.xlsx]Sheet1!C3 となることが正しいのですが、forメソッドを使用して実行したところ、以下のようになりました。 (2) =[佐藤.xlsx]Sheet1!C2 =[佐藤.xlsx]Sheet1!C3 =[佐藤.xlsx]Sheet1!C4 =[鈴木.xlsx]Sheet1!C5 =[鈴木.xlsx]Sheet1!C6 =[山田.xlsx]Sheet1!C7 =[山田.xlsx]Sheet1!C8 数式の書き換えは、Replaceメソッドを使用していますが、一括で置換されてしまうため、 以下のような記述をしています。 Dim a, b, Row, RowEnd As Long Dim Emp As String Row = 2 For Row To RowEnd  Emp = Range("A" & Row ).Value  a = "=SUM(E:" & Row & "G:" & Row & ")" ←例です。  b = "=[" & Emp & ".xlsx]Sheet1!C" & Row  Range("C" & Row ).Select  Selection.Replace what:= a, Replacement:= b Next Row この記述では(2)になるように作ってしまっているのですが、ここから(1)のようにするにはどうすればよいかわかりません。。。 不躾で、大変申し訳ございませんが、どなたかヒントをくださいますでしょうか。 ご不明な点がございましたら回答致しますので、よろしくお願いします。

  • 異なるソフト間でコピーペースト作業を自動化(バッチ化)できるようなソフトをご存じないでしょうか?

    今、会社でデータ移行を担当しているのですが、基幹ソフトからデータをCSVファイルで吐き出し、Excelで開き、各セルの内容を別基幹ソフトに1項目ずつコピーペーストしています。 移行先の基幹ソフトにデータインポート機能がないために苦労しています。 異なるソフト間でコピーペースト作業を自動化(バッチ化)できるようなソフトをご存じないでしょうか? よろしくお願いいたします。

  • EXCELのマクロについて

    マクロについて質問させてください。 商品コード、商品名、ケース入数、ロケーション、WMS在庫数、実在庫数、在庫差異 の順でAからHまでデータがあります。 商品コード毎で1行ずつで全部で6000行程あります。 実在庫数と在庫差異以外は既にデータが入力されており棚卸を実施した後に実在庫数へ入力、関数を入れて在庫に差異があれば表示されるというようなものです。 但し、かなりのデータ量で1人での入力は時間が掛かりますので4名で入力業務を行うことになりました。 元のファイルをコピーし4名で入力し始めたのは良いのですが、入力し穴だらけになったらファイルを元のファイルに合算する方法がわかりません。 手作業では骨の折れる作業ですし、正確性に欠けます。 そこでマクロを使ってそれぞれの入力したファイルから元のファイルにデータが自動で移行するようにしたいのです。 以前、マクロを少しかじりましたが私の知識では作ることが出来ませんでした。 どなたかお力添え頂けると助かります。 宜しくお願い致します。

  • excelのマクロをつかったコピー

    excelのマクロを使ってもとのシートのデータをコピーして新しいブックに貼り付けを行い、ブック名を指定して保存させることを繰り返したい。 excelのマクロで以下の作業が出来ないかと考えております。 1.選択したシートのAC(i)~CW(i)をコピー (i=3,n) 2.ブック『雛形』(コピー先のテンプレートブック)を開く 3.開いたブックのSheet1のB3~BU3に値をペースト 4.同様にSheet1のB3~BU3に書式をペースト 5.ブック名を指定して保存。(ブック名は"シート名""-""i(桁指定3桁)") 6.2~5を繰り返す。iはコピー元のデータがブランクになるまで繰り返す。 なお、コピー元のAC(i)~CW(i)はいくつかの結合セルとなっており、同シート内のB(i)~P(i)を参照して値を表示する関数を組んだデータとなっています。 作成したいブック数が3000ファイル程度になる為、手作業で行うには時間がかかりすぎるため何とか作業効率をあげたいと考えております。 操作を行ってみて記録したマクロを自分でいじってループさせられないかやっていますがうまくいきません。 Sub Macro1() Dim i As Long For i = 3 To 100 Sheets("Aエリア").Select Range("AD(i):CW(i)").Select Selection.Copy Workbooks.Open Filename:="(雛形ファイル名).xls" Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("B2:BU4").Select Range("B4").Activate Application.CutCopyMode = False Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Range("AZ6").Select ファイル名 = "(新規保存ブック頭文字)" Application.Dialogs(xlDialogSaveAs).Show (ファイル名) Next End Sub よろしくお願い致します。

  • Excel2007VBAシートコピーとマクロ保存

    ●質問の主旨 複数のシートのファイルにおいて最終シートだけをコピーし、 かつそのファイルの標準モジュールも含んだファイルを保存するには、 下記のコードをどのように書き換えたらいいでしょうか? ご存知のかたご教示願います。 ●コード Sub 保存() Dim flname As String flname = "D:\医療週報\VBA試作\" & Format(Date, "yyyy年mm月") & ".xlsx" ActiveSheet.Copy ActiveWorkbook.SaveAs flname ActiveWorkbook.Close End Sub ●質問の補足 1)マクロで「保存」を実行するときは手作業で必ず最終ページを開いています(アクティブにします)。 2)上記コードのうち".xlsx"では最終シートだけをコピーできますが、 マクロの保存ができません。また".xlsm"にするとエラーが出ます。 ".xls"にすると複数のシートが全てコピーされた上に、マクロの保存ができていません。 3)私はVBA初心者です。

  • テキストをエクセル上に開き作業するのを簡便にしたい

    メールの添付ファイルとして送られてくるメモ(テキスト形式)をエクセル上に開き、編集する作業を簡便化したいと思っています。作業は以下のとおりです。 1.メールに添付ファイルとしてカンマで区切ってある メモ(テキスト形式)が送られてくる。 2.添付ファイルをデスクトップにコピーする。 3.エクセルを起動し、そのファイルを開く。 4.必要な列のみを抽出し、プリントアウトする。    以上の作業をPC初心者ができるだけ簡単に行えるようにしたい。 自動化できるものは有効に活用したい。(設定などはPCのわかる人が担当することは可能) 特にテキストファイルをエクセルで開くときにウィザードのようなものを省きたい。 何かよいアイディアを教えてください。

  • エクセルの項目順番を変えてコピーする方法

    システムからダウンロードしてきたデータファイルを、項目別に別の規定ファイルへコピーしているのですが、項目の並びが違うので、一括コピーができません。 (規定ファイルは、絶対に並びを変更できないのです) 面倒なことにシステムからダウンロードしたデータも、毎回項目数が違うために、マクロも組めません。 VBAとかではなく計算式で解決できるんでしょうか? 教えてください。 例; ダウンロードしたファイル ↓   A1    B1    C1      D1     E1  拠点  担当者  商品B 商品C 商品E 規定ファイル ↓   A1     B1     C1     D1    E1    F1     G1 担当者 拠点 商品A 商品B 商品C  商品D 商品E わかりづらいかと思いますが、よろしくお願いします。

  • 拡張コピー(CopyExt)の代用ソフト探してます

    Windows7 64bit版でなぜか 拡張コピー(CopyExt)が動かないので、 拡張コピー(CopyExt)の代用ソフト探してます 必要なのは、コピー元ファイルの「比較」機能です。 私がやりたいのは、一度マスターファイル群から抽出した数個の差分ファイルを 再度マスターファイル群と比較して相違がないことを確認する作業です。 拡張コピー(CopyExt)では、コピー元:差分ファイル群/コピー先:マスターファイル群 で、ファイルの比較を実行することでこれができました。 DIFFソフトなどでよくあるWinMergeやDFなどは、コピー先全ファイルに対してDIFFを行いますが、 これでは無駄に時間がかかって仕方がありません。 もっと他にいいソフト有りませんか?

  • マクロのコピー&ペーストの繰り返し作業について

    今、マクロを使って単純な作業を繰り返したいと思っているのですが、その中でいくつかわからない点があるので質問することにしました。 まず、貼り付けたい元データ(説明上data1と呼びます)が40種類あります。 これらは、すべて異なるファイル名をつけており、1つのフォルダ内に保存しています。 data1上のコピーをしたいと思っている場所は40種類ともすべて同じ場所(セルのH3)です。 これを、まったく新しいエクセルファイル(説明上resultと呼びます)に貼り付けたいと思っています。 このとき、data1の40種類のデータをresultのシート上にA1から順番に縦に並べていきたいと思っています。 この作業をdata1のファイル数である40回繰り返したいと思っているのですが、どうすればいいのでしょうか。 回答をお願いします。

専門家に質問してみよう