質問: Excelについての質問です。 セルのコピー・貼り付けをする際、参照元を変えずに貼り付ける方法を教えてください。 マクロ等があるのであれば、それでも構いません。 ※下記方法以外でお願いします。 ・貼り付け先でも内容を加工したいので、コピー元を絶対参照に変えてからコピー・貼り付けをするのを避けたいです。 ・大量に貼り付けたいので、セルの中身を直接コピー・貼り付ける方法では時間が掛りすぎる。
回答: どうも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 ```