• 締切済み

マクロで改行された計算式の値のコピー

マクロで改行された計算式の値のコピー セルに計算式が入力されていますが、式の途中で改行と空白が入っている場合があります。 このときにマクロで値のみコピーすると #name? という表示になってしまいます。 値のみをコピーしたいのですが、どうすればいいのでしょうか？ 値の貼り付けには Selection.PasteSpecial Paste:=xlValues を使っています。 WinXP　Excel2000

みんなの回答

  • web2525
  • ベストアンサー率42% (1219/2850)
回答No.1

何が悪いのかがよく分かりませんがマクロの記録で 【値のみをコピー】 を実行して出来上がったマクロをそのまま使ってみては?

Penpenyuko
質問者

補足

ちなみに空白と改行の入った計算式セルとその参照先をコピー貼り付けすると、 やはり、エラー"#NAME?"がでますがそのセルをEnter(再計算)させるとちゃんとした 値が表示されます。 どこかで、再計算が必要？なのでしょうか

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • 【値のみコピー】のときに含まれる【見えない改行】

    ネットで物販をしているものです 現在、 「エクセルで、消費税やオプション価格を計算し、計算結果を【値のみコピー】」 ↓ [物販サイト(おちゃのこ)の値段入力欄に、貼り付け] しているんですが、 エクセルのセルで、【値のみコピー】すると、 セルに含まれている【見えない改行】までもコピーされてしまい、 【物販サイト(おちゃのこ)】の値段入力欄に、【見えない改行】までコピーされてしまい それをいちいち手で消さないといけないので、（エラーになるため） 【値のみコピー】のときに、セルに含まれている【見えない改行】はコピーしない方法はありますでしょうか。 エクセル２０００です。

  • UWSCで値のみコピーするには？

    UWSCでExcelセルから値のみをコピーしたいのですが、 PasteSpecial Paste:=xlPasteValuesではエラーになってしまいます。どんな構文にしたらいいのでしょうか？お教えください。

  • EXCELマクロの値貼り付けについて

    同一セル内で改行しているデータをマクロを使用して別のセルに値貼り付けしようとしました。 しかし、値貼り付けを行うとセル内の改行データが空白に変換されてその通りにペーストできませんでした。 どのようにしたら、改行そのままで貼り付けできるのでしょうか？ よろしくお願いします。

  • エクセル2010　マクロで値のみコピー

    こんばんは、エクセル2010を使っています。 マクロでデータを値のみをコピーしたいのですが、うまくいきません。 文は　以下の様なものです。 Sub ボタン1_Click() Worksheets("Sheet4").Range("e1").Copy Worksheets("sheet2").Range("b1").PasteSpecial Paste:=xlValues End Sub マクロの画面を閉じようとした時に、Pasteの部分が選択され　 コンパイルエラー　修正候補：ステートメントの最後 と言うダイアログボックスが出てしまいます。 ご存知の方教えて頂けないでしょうか、よろしくお願いします。 ※　ちなみに Worksheets("Sheet4").Range("e1").Copy Worksheets("sheet2").Range("b1")　 ならちゃんとコピーされるのですが、コピー元の数式がコピーされるので、値のみをコピーしたいのです。

  • 値の貼り付けマクロが出来なくなりました。

    http://kokodane.com/macro17.htm 頻繁に、形式を選択して貼り付けで「値の貼り付け」を行うため、 上記のサイトを参考にしてマクロを作成しました。 コードは Sub 値の貼り付け() ' Keyboard Shortcut: Ctrl+t ' 　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 　　　　SkipBlanks :=False, Transpose:=False End Sub です。 それが昨日のことなのですが、そのときはうまくマクロが動作して、 データを貼り付けることが出来ていたのですが、 今日やってみるとなぜかうまくいきません。 特に何か設定は変えていません。 セキュリティは下げた状態にしてあり、他のマクロは通常通り使えています。 コピーペーストは普通に行えています。 なぜなんでしょうか？ 何度かマクロを作成しなおしてみたりもしたのですが、 どうやってもうまくいきません。 どなたか理由を教えて下さい。

  • Excel VBA 値の貼り付けとUnicode テキスト貼り付け

    クリップボードの内容（数値もしくは文字列）を貼り付ける際、 アクティブなセルに値もしくはUnicodeテキストとして 貼り付けるコードを書こうとしています。 コピー＆ペーストする内容は1つのセルだったり、複数のセル範囲だったり、 はたまたExcel以外のアプリケーションからのコピーだったりします。 それぞれについては下記のように書けば希望通りになるのですが どちらであっても対応できるよう、 両方の機能を一つのプロシージャでまとめることは可能でしょうか？ ■エクセルシート上の値（セルや範囲）からの貼り付け Selection.PasteSpecial Paste:=xlValues ■外部ファイル（HTMLなど）からのUnicodeテキスト貼り付け ActiveSheet.PasteSpecial Format:="Unicode テキスト" これらは「マクロの記録」を参考にしたものですが、 Rangeオブジェクト用とWorksheetオブジェクト用に分かれているので クリップボードの種別判定？やエラー判定？のようなif文等による 何らかの分岐が必要なのかなと思い、自分なりに調べてみましたが、 具体的な方法がわからず困っております。 どちらにも対応できるコードにするにはどうすれば良いでしょうか？ どうぞよろしくお願いいたします。

  • エクセルVBAで値の貼り付けができない

    色々調べたのですが、出来ない理由が見つけられません。よろしくお願い致します。 計算式の入っているセルをマクロで貼り付けしようと思っているのですが、 貼り付ける際、値の貼り付けにしたいのです。 下記の通りすると計算式のまま貼り付けされてしまいます。 どなたか教えて下さい。お願い致します。 Selection.Copy wsKei.Select wsKei.Range("A" & intLinekeistr & ":A" & intLinekei - 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False エクセルは、２００７ PCはvistaです。

  • EXCEL　値のみをコピーするマクロ

    お世話になります。 特定のセル（M2）からアクティブセル（クリックで指定したセル）へ「値のみ」をコピーするマクロを考えています。 現在は「そのままコピー」するマクロになっているので、「値のみコピー」へ変更するには どうすればいいでしょうか？ Sub 追番貼付け() ' ' Worksheets("データ検索用").Range("M2").Copy Sheets("見積書").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

  • formに入力した値からコピーしたんですが・・・

    最近ExelのＶＢＡを覚え始めました。 困っていることがあります。売上の一覧シートからから提出用の シートに項目別に貼り付けの作業をEXCELで行っているのですが。 以前はマクロで記録してまったく同じ作業を繰り返していたのですが。 最近支店が毎月のように増えるのでそのたびに Range("E2:E6").Select←「１つ支店が増えるとの範囲を＜Ｅ６＞を＜Ｅ７＞に変更する」 Application.CutCopyMode = False Selection.Copy Range("I2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False と支店が増えるたびにコピー範囲を1つ増やしていました。しかしコピーする項目分（売上・平均.....etc）だけ編集で直すのも大変なので、なんとかフォームで支店数を入力するとその値に対してコピーを行ってくれるものを作りたいのですが・・・・・。 挑戦しましたが・・・どうしてもとんでもない値をコピーしてくるか、エラーが表示されてしまいます。 よろしくお願いします。。

  • エクセル2003 マクロ機能を使ったコピー

    エクセルのマクロ初心者です。 コピー元は、計算式が入ったセルです。 値のみを別のシートへコピーしたいと思っていますが 40番の行でエラーとなってしまします。 行き詰ってしまったため、ご教授いただければ幸いです。 よろしくお願いします。 以下が現在のマクロです。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub 10 月 = Worksheets("毎月").Cells(1, 2) 20 月 = 月 + 3 30 Worksheets("毎月").Range("F24").Copy 40 Worksheets("年").Range(Cells(月, 3)).Select 50 Selection.PasteSpecial Paste:=xlPasteValues End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する