- 締切済み
VBAでコピーと貼り付けに時間がかかる
K Kazz（@JazzCorp）の回答
- K Kazz（@JazzCorp）
- ベストアンサー率31% (549/1751)
show me ur code,please!!
関連するQ&A
- エクセル（2003）のコピーと貼り付けについて。
エクセル（2003）のコピーと貼り付けについて、操作を自動化したいです。 VBA初心者です。 同じフォルダ内にAファイルとBファイルがあります。 Aファイルにはシート1からシート4まで有り、シート1とシート2にシート3と4を比較したデータを表示させています。 シート1とシート2はA1からG1まで項目として、A2からデータが表示されます。約20行程度、表示される行数は毎日変わります。 Bファイルにはシート1しかありません。A1からG1まで項目とし、A2からデータが表示されています。約100行。毎日変わります。 （Aファイルのシート1とシート2の表示されているデータを貼り付けていく為） Aファイルのシート1に表示されているデータ（A2から）を仮に20行としBファイルの101行目（入力されているデータのすぐしたの行）に貼り付け、Aファイルのシート2に表示されているデータ（A2から）を仮に２０行とし、120行目に貼り付け。 毎日コピーする範囲や貼り付けをするセルが変わっていく、固定の範囲、セルではない。この作業を毎日、コピー貼り付けで操作しています。 この操作をラクにしたいです。 困っていることは、コピーする範囲が毎日変わってしまう。（行数が増減するため） 貼り付けるセルも変わってしまう、（行数が増減するため） 分かりずらい説明になっていましたら、申し訳ないです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- コピー、貼り付け
エクセル２００７のブック1シート１のA1からブック２シート２A1にセルのリンク貼り付けをして,ブック２シート２A1をブック２シート２A2にコピー貼り付けをしたところ、ブック１シート１A2が貼り付けられてしまいます。シート1A1を貼り付けタイのですが・・・・・・なぜ同じものがコピペできないのでしょうか、誰か教えてください。
- 締切済み
- その他MS Office製品
- データコピー貼り付けの仕方
excel2010を使っています、VBA勉強中の初心者です教えてください。 随時データ量の変化するsheet1があります。 sheet1 A2からデータの入ってる最終行、R列までをコピーし、 sheet2 A列：R列まで、最終行に貼り付けをしたいのでご教授ください sheet1, sheet2ともに行１にタイトルがあります
- ベストアンサー
- Visual Basic
- EXCEL VBA 貼り付け
A.xls 、B.xlsと二つのブックがあります。 A.xls のA列の最終行がA100だった場合は、A.xlsのA101以降にB.xlsのA2以降のデータ、A.xlsのB101以降にB2以降のデータA.xlsのC01以降にC2以降のデータを貼り付けたいのですが・・ ※A.xls のA列の最終行を取得して、B.xlsのデータをA.xlsの最終行に貼り付ける。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCEL VBA コピー貼り付け時のチェック
お世話になります。田中と申します。 VBAの練習で下記の操作を実現したいと思っておりますが、どうしたらよいのか分りません。 A.xlsというブックがあります。 A.xlsの[データ]というシートにボタンをおいてそのボタンをクリックしたら以下のような動作をしたいのです。 このA.xlsの[データ]シートのA1～L20までをコピーして、C:\Users\田中\DesktopにあるB.xlsというブックの[シート1]という名称の単にシートに貼り付けしたいのです。 ただし貼り付け時に他のユーザーがB.xlsを開いている場合は、貼り付け処理を中止したいのですが、そのようなユーザーに開かれているかどうかVBAでチェックする方法はありますでしょうか？ どなたかお知恵をお借りできますでしょうか。 よろしくお願い致します。 環境 Windows7 Excel2013
- ベストアンサー
- Excel（エクセル）
- Excel 隣接しない列に値貼り付け
Excel 隣接しない列に値貼り付け ※「Excel 隣接しない列に一発で値貼り付け」の書き直しです。 ある一定の書式にしたがって作成された20～30のシートのデータを1つのシートに集約しており（集約シートを含み全てのシートは同じデータ内です。）、データを集約した集約シートの「表A」は下記の添付画像左側のようになります。 やりたいことは、「表A」のB列、C列、D列、E列をある条件のもとに右側の「表B」のH列、J列、L列、N列に値の貼り付けを行いたいのです。 現在の作業工程は、C列の空白行は必要ないため（C列が空白＝他の列も空白）C列に文字入力があるとチェックが入るA列のオートフィルターで、「○」のみ表示にし、B～E列を順にそれぞれ、2行目からデータが記載された最終行までコピーし 「表B」のそれぞれの箇所に値貼り付けを行っています。 この時の注意点として、A列のオートフィルタ利用のためC列には空白がありませんが、B、D、E列には空白が存在します。 データがある最終行以下の空白は必要ありませんが、データ間の空白には意味があります。（下記の図で示すと「B3、4」や「D3、4」） 現在の作業工程でも問題はないのですが、この作業は最初に記載した20～30のシートに記載されたデータの校正に使うため取りこぼしをしたくなく、不特定多数の方が簡単に使えるようにしたいので、どうにか作業工程を減らしたいと考えています。 よろしくお願いします。 ▼書式シート ＊シートの数は増減する。 ＊集約シートが参照するセルには、必ずデータが入力されているわけではない。 ＊入力データは全て数値ではなく文字である。 ▼集約シート ＊他のブックと共通使用なため、一部の式は他のブックへのコピーに対応する形である。 ＊空白セルを参照している場合に結果として返される「０」は、オプション設定で非表示にて対応 ＊「表A」の行長は増減する。 ＊貼り付け先「表B」の列は飛び飛びである。 ▼ちなみに「表A」に使われている計算式（実際とは一部変えています） ■A列 ：C列に文字入力がある場合「○」が表示されます {=IF(OR($C1>""),"○","")} ■B－E列：他のシートの任意のセルの値をコピー {=IF(ISERROR(INDIRECT("'シート名'!セル")),"",INDIRECT("'シート名'!セル"))} PC環境：Win XP ／ Excel 2003
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの貼付けについて
エクセルVBAの貼付けについて シートAとBがあって、シートBの1～7列をコピーし、シートAの最終行に貼り付ける方法を教えて下さい。 下記のように書いてみたのですがダメでした。 Sheets("B").Select Rows("1:7").Select Selection.Copy Sheets("A").Select With Range("A1").End(xlDown).Offset(1, 0) .ActiveSheet.Paste End With
- ベストアンサー
- その他（プログラミング・開発）
- VBAでのコピーについてです。
いつもお世話になっております。VBA初心者です。 シート全体の内容（データ）を別ブックのシートにコピーしたいのです。しかも、別ブックのシートにはデータがあるので、そのデータ下の行（例えば（20,A））から貼り付けたいのです。 いろいろと調べたのですが、やり方がわかりません。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセル 前行のコピー貼り付け
エクセル ２００３ 空白をすることまでは、できたのですが、貼り付けが、・・・。 手作業でも、考えましたが、なにしろ、９００も同じことをやらなければならず、さらに、そのシートが２０枚もあるのですから、 途方にくれています。 これで、わかっていただけるでしょうか？ 空白行の前の行のコピーして貼り付け(２３行）全て、このパターン この作業を簡単にしたいのですが、 やはり、マクロ？関数？なのでしょうか。 教えてください、よろしくおねがいします。 1行 . . この間は空白行（２３行） . ここに、１行目の行を、コピーして貼り付け（２３行全てに） 25行目 . . この間は空白行（２３行） . ここに、２５行目の行を、コピーして貼り付け（２３行全てに） 49行目 . . この間は空白行（２３行） . ここに、４９行目の行を、コピーして貼り付け（２３行全てに） 73行目 ⇒ 上に同じ 97行目 ⇒ 上に同じ 121行目 ⇒ 上に同じ 900行目
- ベストアンサー
- その他([技術者向] コンピューター)
- Excel VBA - 数式のコピーと値貼り付け
A～Cを使った表があり、AとBには値が入力されています。 C2に"=A2+B2"と入力し、その式を、A列の最終行と同じ行までコピーし、C2からCの最終行までの範囲をコピーして同じ範囲に値貼り付けするにはどういうVBAを書けばいいでしょうか。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト