逆さまに貼り付け(excel)

コピーした範囲を貼り付ける際に、持っているデータの一番最後から貼り付けていく方法を探しています。
　VBAの領域でしょうか。。。

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

　宜しくお願いします

No.6 ベストアンサー 回答者： Wendy02 回答日時： 2006/11/01 13:51

こんにちは。

マクロでの解決のようですから、以下のような方法で出来ます。最初にマウスで、コピーする範囲を選択してから、マクロを実行します。ショートカットに取り付けると良いかと思います。

'標準モジュール
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

この回答へのお礼

お礼が遅くなり、誠に申し訳ありません。
コードまでお書き頂き、ありがとうございます。
しかもDialog形式で、任意の所に貼り付けられるだなんて。。。

コメントを書き、自分のものにしてみようと思います。

ありがとうございました。

お礼日時：2006/11/19 15:37

No.5 回答者： sakemoni1008 回答日時： 2006/11/01 11:12

簡単な方法をひとつ

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

この回答へのお礼

お礼が遅くなり、誠に申し訳ありません。

>何でも関数、マクロ、ＶＢＡではなくてこんな方法も有る事
言われる点、よく分かります。
VBAとかでなくても、意外と解決経路ってあるものですよね。
ただ今回は、連番でない場合の逆貼付もありえるので。。。

どちらにせよ、ありがとうございました！

お礼日時：2006/11/19 15:39

No.4 回答者： tux_the_penguin 回答日時： 2006/11/01 08:37

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

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

No.3 回答者： tux_the_penguin 回答日時： 2006/11/01 08:11

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

でかくなると面倒なので３つだけで書きます
ずれると見難いかもなので便宜上全角で表記します

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｆ
－－－－－－－－－－－－－－－－
１｜　３　　　　　０　　０　　１
２｜　８　　　　　０　　１　　０
３｜　２　　　　　１　　０　　０

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

この回答へのお礼

お礼が遅くなり、大変申し訳ありません。
ＭＭＵＬＴ関数、始めて知りました。
行列の積を返す関数、みたいですね。
行列を少し勉強すれば、使いまわせそうです。
ありがとうございます！

お礼日時：2006/11/19 15:44

No.2 回答者： maron--5 回答日時： 2006/11/01 04:19

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

　　　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)
★下にコピー

この回答へのお礼

お礼が遅くなり、大変申し訳ありません。
ＭＭＵＬＴ関数でない場合の方法ですね。
ありがとうございます。
関数名的には、今まで使ったことのある関数なので、
取り組みやすそうです。

ありがとうございます！

お礼日時：2006/11/19 15:45

No.1 回答者： motsu2006 回答日時： 2006/11/01 01:09

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

当方、マクロ記憶にてやってみました。

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

この回答へのお礼

お礼が遅くなり、大変申し訳ありません。

>Order1:=xlDescending
実際に実行せずの意見で、違っていたら申し訳ないのですが、
上記記述から推測するに、単純に並べ替えるのでしたら、
少し意図と違うかな、と。
1
2
3
4
みたいなケースでしたらいいのでしょうが、場合によっては
1
6
5
2
を
2
5
6
1
と並べ替えたい場合もあるのです。

どちらにせよ、お忙しい中ご回答ありがとうございました！

お礼日時：2006/11/19 15:49