ここから本文です

【急募】【250枚】book間のコピーについて Book1とbook2があり、book1のシート...

kuuさん

2017/4/1914:12:19

【急募】【250枚】book間のコピーについて

Book1とbook2があり、book1のシートは175個あります。

book1はすべて同じテンプレのシートであり、book1のすべてのシートを順番にブック2のC2の値をbook1シート1のN3に、book2のE2の値をbook1シート1のAG5に値を入れたいです。
book1のシート2はN3=ブック2のC3、AG5=ブック2のE3と順番にいれるようなイメージです。

マクロをご教示お願い致します。

閲覧数:
36
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

tie********さん

2017/4/1917:10:54

サンプルファイルを置いておきます。
https://box.yahoo.co.jp/guest/viewer?sid=box-l-pp7su7e6fv3ifex7u4gf...
■使い方
『book1.xlsx』『book2.xlsx』『Macro.xlsm』
の3ファイルを開き、
『Macro.xlsm』の『Sheet1』に貼り付けた
『転記』ボタンを押す。

  • tie********さん

    2017/4/1917:13:19

    『Macro.xlsm』の『Module1』に記述したコード
    ===============
    Option Explicit

    Sub Test()
    Dim s As Worksheet, bk As Workbook
    Dim sh As Worksheet, i As Long

    Set s = Workbooks("book2.xlsx").Sheets("Sheet1")
    Set bk = Workbooks("book1.xlsx")

    i = 1
    For Each sh In bk.Sheets
    i = i + 1
    sh.Range("N3").Value = s.Range("C" & i)
    sh.Range("AG5").Value = s.Range("E" & i)
    Next sh
    Set s = Nothing: Set bk = Nothing
    End Sub

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2017/4/20 08:27:20

ありがとうございました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる