逆さまに貼り付け(excel)

Question

コピーした範囲を貼り付ける際に、持っているデータの一番最後から貼り付けていく方法を探しています。
　VBAの領域でしょうか。。。

　例えばセル番地A1からA3には数値の1,2,3がそれぞれ入っている。それをコピーします。そのやりたい方法でA4番地のセルで”貼り付け”をすると3が、A5番地には2が、A6番地には1が貼付られるようにしたいのです。
　形式を選択して貼り付け、というメニューの中にもそのような選択肢はありませんでした。
　当ジャンル内で"貼付 逆から EXCEL エクセル 逆さま　さかさま　あべこべ”といったキーワードで検索してもなかったです。
　また念のため、”コンピューター [技術者向け] > プログラミング > Visual Basic ”カテゴリもちょっと調べたのですが、なかったので質問させてください。

　宜しくお願いします

Wendy02 · Accepted Answer

こんにちは。

マクロでの解決のようですから、以下のような方法で出来ます。最初にマウスで、コピーする範囲を選択してから、マクロを実行します。ショートカットに取り付けると良いかと思います。

'標準モジュール
Sub ReverseCopy()
'逆さにコピーする
Dim myRng As Range
Dim Dest As Range
Dim i As Long
Dim j As Integer
Dim k As Long
If TypeName(Selection) <> "Range" Then Exit Sub
Set myRng = Selection
　Application.DisplayAlerts = False
　On Error Resume Next
　Set Dest = Application.InputBox("貼り付け先を指定してください", Type:=8)
　If Dest Is Nothing Then Exit Sub
　On Error GoTo 0
　Application.DisplayAlerts = True
　Set Dest = Dest.Cells(1)
With myRng
For j = 1 To .Columns.Count
　For i = .Rows.Count To 1 Step -1
　　k = k + 1
　　Dest(k, j).Value = .Cells(i, j).Value
　Next i
　k = 0
Next j
End With
End Sub

sakemoni1008 · Answer

簡単な方法をひとつ
　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ
　１　２　３　４　５（１）
　２　３　４　５　６（２）
　３　４　５　６　７（３）
　４　５　６　７　８（４）
例えば、この様なデータが有ったとしてこれをＡ列が４→１の順にコピー
できれば良いのですね
Ｆ列の最初に１を入力してオートフィルで１づつ加算しますと（）内の値になります
そしてコピーしたい所を選択してコピー先にコピーします（Ａ１からＦ４までを選択）
コピーされたデータを並べ替えしますが、第一キーをＦ列にすれば出来ませんか？
（Ｆ列で降順、範囲の先頭行をデータで並べ替えして下さいね）
何でも関数、マクロ、ＶＢＡではなくてこんな方法も有る事を覚えて下さいね

tux_the_penguin · Answer

あぅ(^^;　間違えました　m(__)m
上記MMULT()の中身が逆でした
誤　＝ＭＭＵＬＴ（Ａ１：Ａ３，Ｃ１：Ｆ３）
正　＝ＭＭＵＬＴ（Ｃ１：Ｆ３，Ａ１：Ａ３）です
失礼しました。
shft+ctrl+ENTERすると入力されたセルの中の式は
｛=MMULT(C1:F3,A1:A3)}　　　と{}で囲まれたものになります。
必要な数のセルを選択した状態でその中の一番上にだけ入力すれば選択範囲全部におなじ式が入ります。

tux_the_penguin · Answer

行列計算で入れ替えるのはいかがでしょうか？
でかくなると面倒なので３つだけで書きます
ずれると見難いかもなので便宜上全角で表記します

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｆ
－－－－－－－－－－－－－－－－
１｜　３　　　　　０　　０　　１
２｜　８　　　　　０　　１　　０
３｜　２　　　　　１　　０　　０

Ａ列の　３、８、２　が逆に並べたいデータだとします
（見やすくするためにＢ列は空欄にしています）
並べ替えたデータを置く場所を（たとえばＨ１：Ｈ３）選択して
＝ＭＭＵＬＴ（Ａ１：Ａ３，Ｃ１：Ｆ３）と打ち込み、
shft+ctrl+ENTERで入力します（普通にENTERだけではありません）
並べ替えるデータが４つのときは４×４の、10個ののときは10×10の「単位行列」(の逆並び)を作ればおっけいです。ようは右上から左下への対角線にだけ１が並び、他のところは０がならんだ正方形ということです。
これで数字がその値の大きさ順に並んでなくてもそのままの逆順になると思うのですがお試しください。

maron--5 · Answer

◆ご希望ではないかもしれませんが、参考までに関数による方法です
　　　A
1　　1
2　　2
3　　3
4　　3
5　　2
6　　1

A4=INDEX($A$1:$A$3,COUNT(A1:A3)-ROW(A1)+1)
★下にコピー

motsu2006 · Answer

貼り付けた後にソートっていう動きではダメでしょうか？

当方、マクロ記憶にてやってみました。

Sub Macro4()

    Range("A1:A3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End Sub

逆さまに貼り付け(excel)

こんにちは。

簡単な方法をひとつ

あぅ(^^; 間違えました m(__)m

行列計算で入れ替えるのはいかがでしょうか？

◆ご希望ではないかもしれませんが、参考までに関数による方法です

貼り付けた後にソートっていう動きではダメでしょうか？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

あぅ(^^;　間違えました　m(__)m