- ベストアンサー
ExcelVBAシートコピー: エクセルBook内の値を参照して新しいBookにコピーする方法
- エクセルVBAを使用して、Book「A」のSheet2のA1の値を変化させたものをBook「B」のSheetにコピーしたいです。
- 目標は、Book「B」のシートにBook「A」のSheet2のA1の値が「山田」から「高梁」までのデータがシートごとに集約されたものを作成することです。
- しかし、シートのコピーを行う際にエラーが発生し、うまくいきません。どなたかアドバイスいただけないでしょうか。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- 【マクロ】シート名を参照してのシートコピー
当方マクロ初心者です。 同じブックの中にシートが 1-A、1-B、2-A、2-B、3-A、3-B・・・ という規則のシート名で並んでいます。 "-A"から同じ数字の"-B"へそれぞれシートをコピーしたいのですが、どのようなマクロを組んだらよいのでしょうか。 もう少し具体的に申し上げますと、 ・1-Aのシートから1-Bのシートへコピー ・2-Aのシートから2-Bのシートへコピー ・3-Aのシートから3-Bのシートへコピー ・・・・ という事をやりたいです。 もしくは、最初は"-A"のシートだけあって、 それぞれ新たにコピーでシートを作り、その名前を"-B"に変えるという方法でも良いです。 最終的には”1-A、1-B、2-A、2-B、3-A、3-B・・・”というシートが並んでいて、 数字が同じシートは全く同じ内容、というブックを作りたいです。 皆様の知恵を拝借させてください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- シートコピーでフォントが変わる
Excel2016を使用しています。 マクロにてシートコピーする処理を行っているのですが、コピー後のフォントがオリジナルと変わってしまう事象に悩んでおります。 ブックAからブックBへ、ブックAのシートAとシートBをworkbooks.sheets.copyを利用してコピーしています。 シートAは問題なくコピーされます。 シートBは内容自体は問題ないのですが、一部分だけフォントが変わってしまいます。 基本的にはMS Pゴシックだったものが、游ゴシックに変わってしまいます(添付画像を見てもらえればと思います)。 ※部分はシートAとシートBで違いがあった場合のチェック用に関数が入っており、シートコピー後に値の貼り付けをして文字列に変えています。 どうして一部のフォントが変わってしまうのでしょうか? ご存知の方はいらっしゃいますでしょうか? ちなみにExcelの新規作成時のフォントは游ゴシックです。
- 締切済み
- Excel(エクセル)
- エクセルのファイルに他のファイルのシートをコピーしたい
エクセルのファイル A に10個のシートがあり、又ファイル Bに5個のシートがあるのですが、 ファイル A のシートを 2個 ファイル Bに移したいのです。うまくコピーできません。 コピーしたいエクセルシート名をクリックして、シートの移動またはコピーを選択しても、新しいブックか現在のファイル名しか表示されません。簡単な編集からコピーをしても貼り付ける時、テキストでの貼り付けになり、元のまま貼り付けが出来ません。
- ベストアンサー
- オフィス系ソフト
- シートコピーと値の転記 シート名変更マクロを
エクセル2010で マクロのご教授をお願いいたします。 BOOK1の Sheet1 A1~A10に 数値1000が入力されているとして Sheet1のシートのコピーを作成 Sheet1にもどり A1~A3の値だけコピーして 作業列C1に 値を貼り付け A1~A10 をクリアーにしたのちに ※↓が うまくいきません。 A1の値→ A8 A2の値→ A9 A3の値→ A10 に入力 させるマクロは どうなるでしょうか? マクロの記録で いろいろと やってみましたが どうも ※の部分が うまくいきません どう考えてもエクセルに対しての 理解不足だと思われますが、ご教授のほどお願いします。 おこなった自動マクロの記録は↓です。 マクロの記録開始する 名前 シートコピー Sheet1を右クリックして移動またコピー コピーを作成にチェックをいれ OK コピーシートが作成される。 Sheet1をクリックしなおして A1からA3をコピー 作業列として C1に 形式を選択して貼り付け 値 A1~A10を delete でクリア C1~C3を選択 コピー A8に 形式を選択して貼り付け 値 マクロの記録終了。 あと Sheet1をコピーするさいに シート名を前日の日付に自動的に変更できればと いいなと 考えておりますが できるのでしょうか? 例えば、本日でいえば シート名→ 0112 のような シート名を変更できればすてきだと おもいます。 どうぞ よろしくお願いします。
- 締切済み
- その他MS Office製品
- 別ブックへのシートのコピー(Excel)
エクセル上で、Aというブックのaというシートを、Bというブックにコピーしようと思っています。 過去の質問を検索したらNo2459324でわかりやすい解答があったので試してみたのですが、 AとBのブックを画面上で両方開いて、Aブックのaシート上で、「編集」→「シートの移動またはコピー」とすると、確かに小さな入力ボックスがでてくるのですが、その中の「移動先ブック名」の欄にBというブック名が表示されないので、選択先としてBブックを指定できないのです(その欄にブック名の手入力もできません)。 「(新しいブック)」を選択すると、AでもBでもない新しいブックが生成されてそちらにコピーされてしまうようです。 どのようにしたらブックAからブックBにシートをコピーできるでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ コピー元と貼り付け先を指定してコピー&ペーストを実行するマクロ
単刀直入にやりたいことを述べます。 Cドライブと仮定します。3つのBOOKがあります。 それぞれ ----- BOOK1.xls「○○Sheet」・・・(実行するファイル) A 1 BOOK2.xls「△△Sheet」・・・(コピーするファイル名の指定です) 2 A2:E2・・・(コピーするセル範囲の指定) 3 BOOK3.xls「□□Sheet」・・・(貼り付け先のファイル名の指定です) 4 A5・・・(貼り付け先のセルの指定) ----- BOOK2.xls「△△Sheet」・・・(コピー元ファイル) ABCDE 1 あいうえお 2 かきくけこ 3 ・・・・・ ----- BOOK3.xls「□□Sheet」・・・(貼り付け先のファイル) ABCDE 1 ・・・・・ 2 かきくけこ・・・(貼り付け) 3 ・・・・・ ----- >やりたいこと BOOK1.xls「○○Sheet」のA1のセルの値とA2セルの値を参照し、 その該当BOOKのセル範囲(BOOK2.xls「△△Sheet」のA2:E2)をコピーして、 BOOK1.xls「○○Sheet」のA3のセルの値と、A4セルの値を参照し、 その該当BOOKのセル範囲(BOOK3.xls「□□Sheet」のA5)へペーストする。 別のブックの指定したセルの値を別のブックの指定したセルへ貼り付けるだけなんですが、 以前関数を使って似たような事をしようとしたのですが、うまくいかなかったので、マクロならできるのでしょうか。 よろしくお願いします。(ちなみにエクセル2000又は2003です)
- ベストアンサー
- オフィス系ソフト
- エクセルのブック間で値のみコピー
エクセル 2003使用です。 エクセルのブック間におけるシートのコピーについてお願いします。 Book.Aのシート1の各セルは、関数の数式で入力(出力)されています。 このシートをコピーして、Book.Bにペーストしたいのですが、 コピーは、関数計算後の”結果の文字列”で行いたいです。 Book.Aのシート全体をコピーして Book.Bのシートに「形式を選択して貼り付け」 → 「値」 で可能なのですが、シート数が多いので困っています。 Book.Aのシートタブを右クリックして「移動またはコピー」で シートのコピーをすると、数式でコピーされてしまいます。 この方法で、値のみコピーのような方法はありませんでしょうか? よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- シートのコピーでリンク先をコピー先のシートのする方法
エクセル2003を使用しています。 「A」というブックのシートを「B」のブックにシートコピーしたいのですが、そのままコピーすると各セルのリンク先がAのブックに設定してある別のシートのままとなります。それをBの同じシート名にリンク先を変えることは出来るのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- シートのコピー
ブックAとブックBに同じ名前のシートがあります。 普段は、ブックAのシートを利用し、上書き保存しています。 ブックBを開く度に、ブックAのシートがブックBのシートに 自動的に上書きコピーされる方法はありませんか? Excel2013です。
- 締切済み
- Excel(エクセル)
- エクセルのシートのコピーについて
シートのコピーをVBAで行いたいのですが、エラーになってしまいます。 間違っている箇所が分からないのでご教授お願いします。 貼り付けというブックにマクロが組まれています。 ”データ”のブックにあるシート名が”貼り付けのブックのリスト”のシートに記載されています。 リストのシートに記載されているシートを貼り付けのブックにコピーしたいです。 よろしくお願いします。 Sub シートコピー() 行数 = 2 Do Until IsEmpty(Cells(行数, 3).Value) コピー元 = Workbooks("貼り付け.xls").Worksheet("リスト").Cells(行数, 3) Workbooks("データ.xls").Worksheet(コピー元).Copy After:=Workbooks("貼り付け.xls").Sheets(Workbooks("貼り付け.xls").Sheets.Count) 行数 = 行数 + 1 Loop End Sub
- ベストアンサー
- Visual Basic
お礼
問題解決しました。 本当にありがとうございました。 私が当初作成していたものよりも短い構文で驚きました。 また、自分の作ったものの問題原因も突き止めたいと思います。
補足
keithin様 ご回答ありがとうございます。 Excelのバージョンは2007か2010なのですが、汎用性を持つために基本は「.xls」の拡張子を利用しています。 情報不足で申し訳ありません。