No.1
1782
96
10pt
URLはマクロです。
手動でやるときはセルの下に連番1,2,3,..を入れて２つのセルを選択して連番の所を降順にソートして後で削除すればいいと思います。
↓２行選択して下の行でソート
A B C D D C B A
1 2 3 4 4 3 2 1
No.2
607108
15pt
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組まなきゃダメでしょうか。
No.3
135391198
20pt
マクロでするなら 以下のようにすればいいだけです。機能としては みかけたことがないですね。
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列の１行目から BZ列の１行目までです。
ありがとうございます。やってみます。
No.4
178296
35pt
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
ありがとうございます。やってみます。
cx20
2004/08/10 11:16:21
5
5
garyo
2
1
1
マクロもシートが１枚もしくは複数枚同じような中身だといいですよね。でも、これだと結局全部の中身を確認することになるので、手間は普通にカット＆ペーストするのと変わらなくなると思います・・・・