セルのコピー・貼り付けをする際、参照元を変えずに貼り付ける方法を教えてください。
マクロ等があるのであれば、それでも構いません。
※下記方法以外でお願いします。
・貼り付け先でも内容を加工したいので、コピー元を絶対参照に変えてからコピー・貼り付けをするのを避けたいです。
・大量に貼り付けたいので、セルの中身を直接コピー・貼り付ける方法では時間が掛りすぎる。
具体的にセルの内容をどの方向にコピーするとか自分が希望するものの詳細を記載して下さい。
例)
①A1の値を列方向に端のセルまでコピーする
②A1の値を行方向に端のセルまでコピーする
とかでもいいの?
セルにカーソルを合わせて、Ctrl+C後のCtrl+Vするのでも、
時間が掛かるのだとすると、マクロを組む必要がある。マクロに汎用性をもたせるより
特注マクロをつくってコピぺしたほうが早いので、詳細を書いたほうがいい。
下記のURLにコピぺする方法は載ってます。
http://www.happy2-island.com/excelsmile/smile03/capter00505.shtm...
これは便利そうですね。使いたいと思います。
どうもExcelの貼り付けの機能では無いようなのでマクロを作ってみます。
以下のコードを標準モジュールにコピペしてください。
コピー元範囲を選択して「数式コピー」を実行して範囲を覚えさせ、
コピー先範囲か範囲の左上を選択して「数式ペースト」を実行すれば数式がそのままコピーされます。
ただし、数式そのままなのでシート間の貼り付けはできません。
Private myRange As Range Sub 数式コピー() If TypeName(Selection) <> "Range" Then Exit Sub Set myRange = Selection End Sub Sub 数式ペースト() If TypeName(Selection) <> "Range" Then Exit Sub If myRange Is Nothing Then Exit Sub Dim i As Integer Dim j As Integer For i = 0 To myRange.Rows.Count - 1 For j = 0 To myRange.Columns.Count - 1 Cells(Selection.Row, Selection.Column).Offset(i, j).Formula = myRange(i + 1, j + 1).Formula Next j Next End Sub
やはりマクロが必要なのですね。試してみたいと思います。
これは便利そうですね。使いたいと思います。