• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルの値を選択してコピーができません。)

エクセルの値を選択してコピーができません

このQ&Aのポイント
  • エクセル2000で作成した表(1)の数式を含む内容をシートのコピーして、新しい表(2)に値だけの内容にしたい場合、コピー時に「この操作には同じタイプの結合セルが必要です」というエラーメッセージが表示されることがあります。解決策としては、表(2)にも表(1)と同じようにセルを結合することでエラーを回避することができます。結合セルを作成する方法や別の方法で数式から値に変更する方法については、以下の要約文をご参考ください。
  • エクセル2000で作成した表(1)の数式を含む内容を別の表(2)に値だけの内容でコピーしたい場合、結合セルが存在するとエラーメッセージが表示されることがあります。解決策としては、表(2)にも同じように結合セルを作成することでエラーを回避することができます。また、数式から値に一括して変更する方法もあります。具体的な手順や別の方法については、以下の要約文をご参考ください。
  • 初心者のhaasan99です。エクセル2000で作成した表(1)の数式を含んだ内容を別の表(2)に値だけの内容でコピーしたい場合、結合セルがあるとエラーメッセージが表示されます。解決策としては、表(2)にも同じように結合セルを作成することでエラーを回避できます。さらに、数式から値に一括変更する方法もあります。具体的な手順や方法については、以下の要約文をご参考ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.3

こんにちは。 1.元シートのセルを全選択して、コピー 2.貼り付け先シートのA1を選択して普通に貼り付け 3.そのまま貼り付け先シートを全選択状態で再度コピー 4.貼り付け先シートに形式選択の値貼り付け で出来ます。 範囲を指定してやる場合は、貼り付け先のシートに結合が無い方がやりやすいです。 やり方は上と一緒で、一旦普通に貼り付けして、その場所でもう一度コピー&形式貼付けします。

haasan99
質問者

お礼

早速のご回答ありがとうございました。 希望どおりの処理ができました。

その他の回答 (3)

  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.4

質問の値貼り付けができるようコードを書いてみました。 同じシート内なら簡単なんですが、質問では不明なため、異なるシート間でコピーできるようにしたつもりです。 ツール→マクロ→マクロ で『AreasVCopy』を実行すると、コピー元範囲(矩形)と貼り付け先セルを入力するダイアログボックスが表示されます。マウスでセルを選択すれば入力されます。(InputBoxメソッド) 同一ブック内なら異なるシート間も可能です。 なお、貼り付け先に結合セルがあったり、コピー元範囲に複数の矩形範囲を選択した場合は対応していません。(コードが長くなってしまうので・・・)とりあえず、四角い範囲の値コピー用に書いてみました。 ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。 出てきたコードウインドウに下記マクロをコピーして貼り付けます。(当方、Excel2000です) ここから ↓ Sub AreasVCopy()   Dim rgCopy As Range 'コピー範囲   Dim rgPaste As Range '貼り付け先   On Error GoTo ErrorHandler 'InputBoxメソッドでキャンセルした時の対応   Set rgCopy = Application.InputBox( _           Prompt:="コピーする範囲を選択します。", _           Title:="コピー元", Type:=8)   Set rgPaste = Application.InputBox( _           Prompt:="貼り付ける左上セルを選択します。", _           Title:="貼り付け先", Type:=8)   Set rgPaste = rgPaste.Cells(1, 1) 'どんな入力をしても単一セルにする   On Error GoTo 0   'コピーして書式を貼り付け   rgCopy.Copy   Worksheets(rgPaste.Parent.Name).Activate: rgPaste.Select   Selection.PasteSpecial Paste:=xlFormats   '値にして貼り付ける   Dim rw As Long '行カウンタ   Dim col As Integer '列カウンタ   With rgCopy     For col = 1 To .Columns.Count       For rw = 1 To .Rows.Count         rgPaste.Cells(rw, col) = .Cells(rw, col)       Next     Next   End With   Exit Sub ErrorHandler:   'InputBoxメソッドでキャンセルした時の対応 End Sub

haasan99
質問者

お礼

早速のご回答ありがとうございました。

noname#2012
noname#2012
回答No.2

 まず、値という認識は、数字だけのようです。私もExcelで会計入力をしていますが、名前などの項目ごと値で貼り付けをしようとすると、やはり貴方が書かれたエラーメッセージが出ます。  Excelの場合、セルの結合をしているところに、別の書式のセルを貼り付けようとすると、このメッセージが表示されますので、文字認識部分だけや数式や値だけの部分を貼り付けする場合、貼り付ける側のシートのセルは、セルの結合解除で元の状態にすれば、いくつか結合したセルも貼り付けることができます。  また、貴方が言われるように、数字だけの部分で値での貼り付けをすると、見事できました。なお、この場合数式が入力されていても、純粋な値だけの貼り付けになります。  また、数字ではない項目の場合は、貼り付けの条件をすべてにすれば出来ます。

haasan99
質問者

お礼

早速のご回答ありがとうございました。

回答No.1

コピー先にセル結合があるばあい、値だけの貼り付けは出来ないようです。 ・コピー先のセルの結合を取りやめる     ↓ ・値の貼り付けを行なう     ↓ ・書式の貼り付けを行なう とするしかないでしょう。

haasan99
質問者

お礼

早速のご回答ありがとうございました。