Excelの貼り付けについての質問です。

質問

Excelの貼り付けについての質問です。

　　A　B　C　D　
1　あ　い　う　え

上記の様な例として、「あ～え」を範囲選択し、コピーします。
それらを通常に貼り付けする場合、例えばA2に貼り付けすると、
同様のデータは2列目に貼り付けられます。

それを、D2に貼り付けると、D2に「え」が挿入され通常と
逆方向に貼り付けする事が出来ないでしょうか？

一言で表すと、終点から始点に向けて、逆に貼り付ける事が出来るか？です。

マクロ等でも良いので、実現方法あればご教授ください。
よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

マクロです

Sub test()
Dim i, j
Dim mData As Variant
Dim mRng As Range
On Error Resume Next
mData = Selection
Set mRng = Application.InputBox("移動先のセルを選択してね", Type:=8)
If mRng Is Nothing Then Exit Sub
For i = UBound(mData, 2) To 1 Step -1
For j = 1 To UBound(mData, 1)
mRng.Cells(1, 1).Offset(j - 1, UBound(mData, 2) - i).Value = mData(j, i)
Next j
Next i
End Sub

参考まで

お礼

すごく遅くなりましたが、ありがとうございました。