人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelの左から右に並んだセルの中身を一気に逆順(右から左)にして貼り付ける方法を教えてください。

●質問者: sasa333
●カテゴリ:科学・統計資料
✍キーワード:Excel セル 右から左
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● garyo
●10ポイント

http://www.techno5.net/download/usages/rkexcel/rk1.html#q4

「楽々マクロ」説明

URLはマクロです。

手動でやるときはセルの下に連番1,2,3,..を入れて2つのセルを選択して連番の所を降順にソートして後で削除すればいいと思います。

↓2行選択して下の行でソート

A B C D D C B A

1 2 3 4 4 3 2 1

◎質問者からの返答

マクロもシートが1枚もしくは複数枚同じような中身だといいですよね。でも、これだと結局全部の中身を確認することになるので、手間は普通にカット&ペーストするのと変わらなくなると思います・・・・


2 ● cx20
●15ポイント

http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Software%2...

[hondarer-soft] to [cx20.main.jp]

URL はダミーです。

一気というわけではありませんが、

このような方法はいかがでしょうか?

1. 先頭行に「1, 2, 3」のように番号を挿入

a,d,g

b,e,h

c,f,i

1,2,3

a,d,g

b,e,h

c,f,i

2. 全コピーして [形式を指定して貼り付け] - [行列を入れ替える] にて貼り付け。

1,a,b,c

2,d,e,f

3,g,h,i

3. 1列目で逆順にソートを行う。

3,g,h,i

2,d,e,f

1,a,b,c

4. 全コピーして [形式を指定して貼り付け] - [行列を入れ替える] にて貼り付け。

3,2,1

g,d,a

h,e,b

i,f,c

5. 1行目を削除。

g,d,a

h,e,b

i,f,c

◎質問者からの返答

行列を入れ替える、という機能ですね。コレがあるということは・・・・左右入れ替えるってこともあるはず・・・・という淡い期待なのです。(中身の属性を参照するマクロではなく。単純にA列からたとえばBZ列までの右〜左の並びを左〜右に入れ替えるという。)ということで、、、データ数が少なければ毎回ご指摘のやり方をするのもひとつの案だと思うのですが。やっぱりVB組まなきゃダメでしょうか。


3 ● きゃづみぃ
●20ポイント

http://www.hatena.ne.jp/awindow

マクロでするなら 以下のようにすればいいだけです。機能としては みかけたことがないですね。

Sub Macro1()

’ Macro1 Macro

’ マクロ記録日 : 2004/8/9

’ Keyboard Shortcut: Ctrl+q

Dim a As Integer

Dim b As Integer

Dim c As String

b = 78

For a = 1 To 36

c = Cells(1, a)

Cells(1, a) = Cells(1, b)

Cells(1, b) = c

b = b - 1

Next a

End Sub

A列の1行目から BZ列の1行目までです。

◎質問者からの返答

ありがとうございます。やってみます。


4 ● garyo
●35ポイント

http://www.vector.co.jp/

Vector:ソフトウェア・ライブラリ&PCショップ

URLはダミーです。マクロにしてみました。

※全角は半角に直してください。

Sub Macro1()

Dim y As Integer, x1 As Integer, y1 As Integer, i As Integer, c As Integer

y = InputBox(”入れ替える行は?”)

If y > 0 Then

x1 = InputBox(”入れ替え開始列は?”)

If x1 > 0 Then

x2 = InputBox(”入れ替え終了列は?”)

If x2 > 0 Then

For i = 0 To Int((x2 - x1) / 2) - 1

c = Cells(y, x2 - i)

Cells(y, x2 - i) = Cells(y, x1 + i)

Cells(y, x1 + i) = c

Next i

MsgBox (”終了しました”)

End If

End If

End If

End Sub

◎質問者からの返答

ありがとうございます。やってみます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ