- 締切済み
２つのBook間で共通のキーワードを使いデータを転記するには？
下記のようなデータがある場合、Book1/sheet1のD列へ Book2/sheet1 C列のデータを転記したい。キーワードは 各Book B列のロットNO.です。どのようなマクロを 組めばいいのでしょうか？ Book1/sheet1 A B C D 1 品名 ロットNO. 数量 2 Ａ A123 25 50(転記) 3 Ａ A234 20 75(転記) 4 Ａ A345 22 60(転記) ・ Book2/sheet1 A B C D 1 品名 ロットNO. 時間(HR) 2 Ａ A123 50 3 Ａ A234 75 4 Ａ A345 60 ・
- rcn4132
- お礼率63% (7/11)
- オフィス系ソフト
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- zenjee
- ベストアンサー率47% (50/106)
>ファイルが見つかりませんと言うエラーメッセージが出てしまいます。 一つのファイル（ブック）だけを開くとそのようなメッセージが出ます。 そのときはもう一方のリンクファイルを開けばいいのです。 ＞毎回式を入力する手間とデータ件数が多いためマクロにしようと思います。 毎回式を入力する必要はなく、ブック全体又はシート全体をコピーすれば式がそのまま反映されるので、手間は殆どかからないと思いますが……。 ま、好みの問題でしょうから、これ以上は差し控えさせていただきます。
- zenjee
- ベストアンサー率47% (50/106)
双方のブックのB列の並びは同一なのでしょうか。 もし同一ならマクロを組むまでもなく、該当セルをリンクさせればよいと思いますが…… 両ブックを同時に開いて、 Book1/sheet1のD2を選択し「=」を入力、そのままBook2/sheet1のC2を選択し，ＯＫをクリック、Book1/sheet1のD2が =[Book2]Sheet1!$C$2 となっていることを確認して、下方にプルダウンコピーするだけでいいと思いますが、これで何か不都合なことがあるのでしょうか。 もし両ブックＢ列の並びが不一致の場合でもBook1/sheet1のD2に =VLOOKUP(B2,[Book2]Sheet1!$B:$C,2,FALSE) となるように入力すればいいと思います。
補足
zenjeeさんご回答ありがとうございます。 Ｂ列の並びは順不同で、ないロットも存在します。 その時はブランクでいいです。式を入れてみましたが、 ファイルが見つかりませんと言うエラーメッセージが 出てしまいます。毎回式を入力する手間とデータ件数 が多いためマクロにしようと思います。
関連するQ&A
- VBA 別BOOKへのデータ転記について
VBA初心者です。 以下のことがしたいのですが、 コードをご教示いただきたくお願いいたします。 BOOKが5つあります。 BOOK1：抽出用（Sheet2に日々の受注データを入れています） BOOK2：転記100用 BOOK3：転記200用 BOOK4：転記300_400_500用 BOOK5：工事番号用 BOOK1：抽出用はA列からQ列まで工事番号ごとに2行目から受注データが入っています。 抽出用のsheet2のA列に「1」と入力することで転記したいデータだというフラグにし、 抽出用O列のコード100,200,300,400,500（工事の種類のようなものです）を見て、 該当のBOOK2から4にその工事番号が転記がされているか？ （されていれば登録済みのメッセージ表示） 転記がされていなければ新規に登録、 新規登録の際に、抽出用Sheet2のD列の工事番号、I列の件名、K列の数量を表示して、 このデータを新規登録しますか？のようなメッセージを出し、Yesなら新規登録。 さらに、新規に登録した際にはその工事番号を名前とするBOOK5を新規作成、 BOOK5にも抽出用の受注内容を転記。 BOOK2から4に転記された工事番号をクリックすると その工事番号のBOOK5にジャンプするようにしたいのです。 抽出用A2とA4に「1」と入力された場合（O列は共に200） BOOK1抽出用データの転記したいセル番地 → BOOK3転記200用のセル番地 A2のデータ D2 → A7 K2 → A8 C2 → A9 H2 → A10 I2 → A11 F2 → D7 L2 → D8 M2 → D9 J2 → D10 C2 → I5 Q2 → J5 A4のデータ D4 → A12 K4 → A13 C4 → A14 H4 → A15 I4 → A16 F4 → D12 L4 → D13 M4 → D14 J4 → D15 C4 → I10 Q4 → J10 BOOK2から4は１つの工事番号を５行使用して表わしています。 ですので、1つの工事番号が7から11の行、 2つ目の工事番号が12から16行目となり、それぞれ100件分の工事番号を入れられるように 作成してあります。 またBOOK5については、（A2のデータの場合）以下のように転記し、ファイル名を抽出用D2の工事番号にしたいです。 A2のデータ D2 → A3 K2 → A4 C2 → A5 H2 → A6 I2 → A7 F2 → F3 L2 → E4 M2 → E5 J2 → E6 大変長くなってしまいましたが、以上のようなことをしたいと考えておりますが、 当方、VBA初心者でして参考書とネットを駆使して抽出用のVBA（CSVデータをコピーして加工する）ことにすら大苦戦しております。 なんとかお力を貸していただけないでしょうか？ ご教示よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel2003 BookからBookへ転記
A B C D 1 コード 日付 枚数 金額 2 1502 7/1 8 25500 フォルダ内でBook1 Sheet1に毎日の売り上げを入力します、コードが50超あります。コード別にBook2～Book51を作成(Book2は1502)として転記させることは可能でしょうか？ Book1 Sheet2に転記することは出来ますが、BookからBookは私の力量ではむずかしいです、Book2 Shee1はデータ蓄積、sheet2は納品、sheet3は請求と活用して行きたいと思います、どうぞ宜しくお願いいたします。
- ベストアンサー
- その他MS Office製品
- マクロで5個のBOOKのデータをBOOK1に転記
エクセルマクロで対話型でBOOK2～6の5個のデータを BOOK1のシート1に順番で転記したいです。 BOOK2～BOOK6は作業者にファイルを選択させたいです。 BOOK2～BOOK6は作業の都度行数がBOOKごとに変わります。 （５００～５，０００行でばらつきます） 流れとしては、 １．BOOK1を開いてマクロを軌道 ２．エクセルのファイルを開くウィンドーが出る ３．ファイルを選択させる（例：マイネットワーク内のBOOK2を選択） ４．ウィンドーの開くをクリックする ５．転記1回目 指定したファイルが開いてデータが BOOK1のシート１に転記される この１回目は1行目からデータがある最終行まで。 その後BOOK2は閉じられる ６．メッセージボックスで「転記完了」と表示 ７．メッセージボックスの「ＯＫ」をクリックすると エクセルのファイルを開くウィンドーが出る ８．ファイルを選択させる（例：マイネットワーク内のBOOK3を選択） ９．ウィンドーの開くをクリックする 10．転記2回目 指定したファイルが開いてデータの中の２行目～最終行までを BOOK1のシート１の最終行の次の行から転記を行う。 （NO.5のBOOK2が1,000行の場合1,001行目から BOOK3のデータ2行目以降が転記される） その後BOOK3は閉じられる 11．この作業を計５回行う （転記３～５回目も転記するデータは2行目～最終行） 13．メッセージボックスで「５個のBOOKの転記が終了」と表示 14．メッセージボックスの「ＯＫ」をクリックすると Call 編集 でSub 編集 というプロシージャーが起動する Sub 編集は出来上がってます。 （BOOK1のシート１を編集します。） NO.1～NO.14のマクロ記述を教えてください。 自分で作成した記述では全然駄目でした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Book間のデータ転記を自動化したい
Book A からBook Bへ毎日データをコピーしています、これを自動化できないでしょうか？ Book A A B C D 1 会社名１ data11 data12 data13 2 会社名２ data21 data22 data23 3 会社名３ data31 data32 data33 Book B A B C D 1 日付１ data11 data12 data13 2 日付２ data14 data15 data16 3 日付３ data17 data18 data19 Book A は１日につき１ファイルづつ毎日増えていきます会社数は日によって違いますが大体40～50くらですデータ数は１行につき15個で一定です。 Book B は会社ごとにシートが作ってありBook Bの中に約35シート入っています。 少し説明がわかりにくいかもしれませんが、やりたいことは毎日Book Aというファイルを渡されるのでその中から主な会社35社のデータを会社別に日付順にしたいのでBook Bへ手作業でコピーしています、毎日のことなので結構大変です自動でコピーできないでしょうか？ それとも何か別の方法でもっとスマートに処理できますか？
- 締切済み
- オフィス系ソフト
- VBAでのデータ転記処理
下記の処理をVBAで作成したいのですが…。 Book "aaa" の "Sheet1" A ｜B ｜C ｜D ｜E ｜F ｜G ｜H ｜I ｜J ｜K 1 あ｜い｜う｜え｜お｜か｜き｜く｜け｜こ｜さ 2 た｜ち｜つ｜て｜と｜な｜に｜ぬ｜ね｜の｜は｜ひ｜ふ｜へ 3 ま｜み｜む｜め｜も｜や｜ゆ｜よ これをBook "bbb" の "Sheet1" に A｜B｜C｜D｜E 1 あ｜い｜う｜え｜お 2 か｜き｜く 3 け｜こ｜さ 4 5 た｜ち｜つ｜て｜と 6 な｜に｜ぬ 7 ね｜の｜は 8 ひ｜ふ｜へ 9 10 ま｜み｜む｜め｜も 11 や｜ゆ｜よ と言う風にデータを転記したいのです。 Book "aaa" の Sheet "Sheet1"のＡ～Ｅ列までは必ずデータが入っていますが Ｆ列以降は、データがある場合と無い場合があり データがなければ、そこのセル（行）は詰める。 さらに、Book "aaa" の１行を１セットとして、Book "bbb" で１セット単位で、空白行を設けたいのです。 上記例のように、１セットの行数は固定ではありません。 Book "aaa" の Sheet "Sheet1"のデータ行数は大量に（1000行以上）あります。 わかりにくいと思いますが、どなたかよろしく御願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロで別ブックから転記するやり方
エクセルでBook1(集計用)と、 店舗→Book2(大宮店)、Book3(東京店)・・・・・ 何店舗もあるんですがそれぞれの店舗のA30,B30,C30,D30の数字を Book1(集計用)のＡ列に並んだ店舗名のB列、C列、D列、E列に転記させたいと考えています。 今までは関数を入れて読み込ませていましたがこれをマクロで作成させる場合どのようにすればよいでしょうか？ 何か他にいい案があれば教えていただきたいと思います。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- データ転記。うまく転記できないシートがあります。
エクセルのデータ転記について助けてください。 現在 エクセルで職場で使用する現金出納帳を作成中です。完成間近なのにつまずいてしまいました。 作成にもう長い時間かかっるので今週中になんとか仕上げたいのです。 （職場での周りの目がこわくって・・・） どうかどうかよろしくおねがいします。 ＊各シートの説明 【シート１（元帳）】は記入用シート（1年間の経費等の入力をします） A1は表題 ２行目はタイトル行で B列：月日、C列：曜日、：D列：経費部門コード（以下部C）、E列：経費部門名（D列の部C入力時に他シートにあるデータベースからLOOKUPで抽出して表示するようにしてます） F、G列は手入力用の内訳や備考の列、H列：収入金額、I列：支払金額、J列：差引残高。（I・J列は転記必要なしです） データはB3（日付）から入力します。 データ表の範囲はとりあえず１００行目まで（A1からJ１００） 【シート２～シート１６（シート名はD列の経費部門コード番号です）】 こちらが転記先シートです。 A1に部門コード、B2に部門コード名（A1のコードでデータベースより抽出）２行目はB列：月日、C列：曜日、D、E列：内訳、備考、F：支払金額 【シート１７（経費部門コードのデータベース）】 部門番号と部門名を表にして 元帳で入力の際 ここからひっぱってくるようになっています。 番号は１５種類（経理上不規則な番号）：1・2・4・5・6・7・8・９・１０・１２・２０・２１・２２・仕・給（これをシート名にしてます） ＊希望する完成仕様 元帳（シート１）に入力したデータが同時に部門C別シート（１５種類）に必要な項目だけ転記される。必要な項目は上記のシート説明参照。 ＊現在の作成状況 ・元帳のシート A3に'=COUNTIF($D$3:D3,D3)&D3 以下 A列はA3をコピー ・１５枚の部門番号のシート B3（転記初期行）に'=IF(ISERROR(VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)),"",VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)) C３,D３,E３,F３列はB３をコピーしLOOKUPの列番号を変更 ＊現在の状況と問題点 シート4・5・6・7・8・9・１０・１２・２０・２１・２２はきちんと転記する。 シート１（部門C：１）は部門C：１と部門C：２１のデータが転記されてしまう シート２ （部門C：２）は部門C：２と部門C：１２と部門C：２２のデータが転記されてしまう。 この２つのシートは 下１桁でひっぱってきてしまってるのは分かるのですが改善方法が分かりません。 どうかこの２シートがきちんと動く数式を教えていただけるでしょうか？ 文章力不足のため 質問の理解にさぞ悩まれるでしょうがどうぞよろしくお願いします。 補足：０１ ０２ ０４と 二桁でもしてみましたが反応は同じ。 よく分からなくて セルの表示変えても値は１・２・４になってしまうんです・・。 結局よく分かりませんでした。
- ベストアンサー
- オフィス系ソフト
- VBA 別ブックへのデータ転記
別ブックへのデータの転記についてご教示お願いいたします。 以下、やりたいことです。 Bookの構成4種類 1.抽出用 （csvデータをコピーして、転記用Bookに移す為の加工をしており、A列に〇がついたものでO列の値（1～3）別にそれぞれのBookへ転記しようと考えています。 2.転記O列1用 3.転記Ｏ列2用 4.転記O列3用 現在のコードは以下の通りで、わからない点は大まかに2点あります。 1点目は、O列の値（1～3）の値を見てBookを開く（現在は指定のBookを開くコードになっています） 2点目は、転記用への転記の方法 例えば、抽出用のA2とA4に〇がついてO列が共に1だとすると、転記O列1用のBookを開いて、 A2のデータを以下のように。 抽出用 転記O列1用 P列の値 → A7へ C列の値 → A8へ H列の値 → A9へ I列の値 → A10へ F列の値 → E5へ L列の値 → D6へ M列の値 → D7へ K列の値 → F9へ J列の値 → D8へ A4のデータを以下のように。 抽出用 転記O列1用 P列の値 → A12へ C列の値 → A13へ H列の値 → A14へ I列の値 → A15へ F列の値 → E10へ L列の値 → D11へ M列の値 → D12へ K列の値 → F14へ J列の値 → D13へ 以上のような事がしたいのですが、 現在、勉強中の初心者で…参考書を見ながら以下のコードまでしか出来ませんでした。 このコードもめちゃくちゃなのかもしれないのでお恥ずかしいのですが… なんとかこのデータを仕上げたいと思っています。 ご教示よろしくお願いいたします。 Sub ボタン2_Click() Dim myCnc1 As String Dim myCnc2 As String Dim myFileName As String Dim sheet1 As Worksheet myFileName = "受注.csv" Set sheet1 = Worksheets(2) sheet1.Activate myCnc1 = "TEXT;" myCnc2 = ThisWorkbook.Path & "\" & myFileName With ActiveSheet.QueryTables.Add( _ Connection:=myCnc1 & myCnc2, _ Destination:=Range("A1")) .TextFilePlatform = 932 .TextFileCommaDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1) .Refresh End With Columns("A:A").Insert Columns("B:B").Select Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Columns("G:G").Select Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Columns("O:O").Select Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Dim r As Long r = Range("E" & Rows.Count).End(xlUp).Row Columns("E:E").Insert Range("E2:E" & r).FormulaR1C1 = "=LEFT(RC[-1],10)" Range("E2:E" & r).Value = Range("E2:E" & r).Value Range("D1").Copy Range("E1") Columns("D:D").Delete Columns("H:H").NumberFormatLocal = "0_ " Columns("O:O").Insert Range("O2:O" & r).FormulaR1C1 = "=Right(RC[-1],3)" Range("O2:O" & r).Value = Range("O2:O" & r).Value Range("N1").Copy Range("O1") Range("O1") = Range("N1") + "2" Range("A1").Select Dim myRng1 As Range Dim myRng2 As Range Dim mySht As Worksheet Set myRng1 = _ ActiveSheet.Range("c1").CurrentRegion With myRng1 .AutoFilter Field:=3, Criteria1:="=J*" Set myRng2 = .SpecialCells(xlCellTypeVisible) .AutoFilter myRng2.EntireRow.Hidden = True On Error Resume Next .SpecialCells(xlCellTypeVisible).EntireRow.Delete On Error GoTo 0 myRng2.EntireRow.Hidden = False End With Set myRng1 = Nothing Set myRng2 = Nothing myFileName = ThisWorkbook.Path & "\転記O列1用.xlsm" Workbooks.Open Filename:=myFileName End Sub
- ベストアンサー
- その他MS Office製品
- ロット数で抽出したい
多数の品名があり、それぞれ複数のロットのデータがあります。 例えば、 Ａ列 Ｂ列 Ｃ列 品名Ａ ロットNo.123 データ0.1 品名Ｂ ロットNo.235 データ0.5 品名Ｃ ロットNo.567 データ3.1 品名Ａ ロットNo.125 データ0.2 品名Ｄ ロットNo.425 データ1.2 ： ： ： と言う感じで、品名は1000以上、全ロット数は30000ほどあります。 ここでロット数が４ロット以上の品名だけを抽出してデータ解析をしたいのですが、うまい方法はあるでしょうか？ 一応、Ｄ列の一行目に =countif($A$1:$A$30000,A1) と入力後、オートフィルで全てコピーしてやれば後はオートフィルターで４以上を指定してやればよいのですが、この数式をオートフィルでコピーする際に非常に時間がかかります（20分くらい)。 もっと簡単にやれる方法があれば教えて頂けると助かります。
- ベストアンサー
- オフィス系ソフト
- ブックの転記で計算式も転記したい
ブックの転記で計算式も転記したい データを転記するマクロを作成しました。 【知りたいこと】 その1： 転記元となるブックを毎回「master」という名前に変更してから作業をしています。 この一手間を省きたいと考えているのですが、開いているもう一つのブックを自動で 転記元の〔mst〕と認識させて作業を進めるにはどうしたら良いでしょうか？ その2： 転記先のD列に、転記元(master)E列の数式を転記させるにはどうしたら良いでしょうか？ このE列には、数値の値だったり、足し算・引き算・割り算などの計算式が混在しています。 また、転記先の書式は保ち、値もしくは計算式だけを転記したい。 宜しくお願い致します。 ---------------------------------------------------------- Sub 値の転記() Dim ent As Worksheet, mst As Worksheet Dim i As Integer, j As Integer Dim lstCel As Integer Set ent = Workbooks("転記先").ActiveSheet Set mst = Workbooks("master").ActiveSheet '←★その1：このブック名の指定 lstCel = mst.Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To lstCel ent.Cells(j + 2, "A") = mst.Cells(i + 2, "A") ent.Cells(j + 2, "B") = mst.Cells(i + 2, "B") ent.Cells(j + 2, "C") = mst.Cells(i + 2, "D") ent.Cells(j + 2, "D") = mst.Cells(i + 2, "E")'←★その2：ここだけ数式を転記 j = j + 1 Next i End Sub ----------------------------------------------------------
- ベストアンサー
- その他MS Office製品
お礼
返信が遅れ申し訳ございません。どうもありが とうございました。質問の書き方が悪いのか、 私が作成した式に間違いがあるのかうまくいきま せんでした。もう少し自分で考えてみます。
補足
ファイルは２つとも開いているのですがエラーメッ セージが出てしまいます。