エクセルの列順を変更するマクロを作成したい

こんなマクロを作成したいのですが可能でしょうか？

①
エクセルにA～D列の記載されている情報を
同じシートの下の方に列の順番を変えて表示。

②
ファイル名に列の情報を反映。
(例：日付)

マクロ自体をあまり触ったことがないので知識がなく、
どなたかご教授お願い致します。

行動規範の内容に同意します

回答2件

ベストアンサー

例がないので一概に言えませんが、可能かと思われます。
それぞれ細分化すると、

①
・項目のコピーの方法
(『表示』がコピーを指すなら、ですが)

②
・名前を付けて保存する方法
・セルの内容の取得方法(A1に何が書かれているか等)
・文字列と文字列の結合方法(& で繋ぐ)

最小限に考えればこれで大丈夫かと思います。

文字列と文字列の結合方法以外は
マクロの記録で事足りるはずなので、
とりあえずそこから攻めていくのがお勧めです。

投稿2018/05/14 08:32

torisan

総合スコア678

マクロの記録を使えば、自分で操作した事に対応するマクロが記録されます。
特に①のようなケースでは有用な方法ですから、ためしてみてください。

＝＝
①　A1:D7 の値を、11行目から、B,C,D,Aの列にコピーする操作をマクロ記録してみました。
A1:A7がB11:B17に、B1:B7がC11:C17に、C1:C7がD11:D17に、D1:D7がA11:A17にコピーされる例です。

Excel
1Sub 列を入れ替えてコピーする()
2'
3' 列を入れ替えてコピーする Macro
4'
5
6'
7    Range("A1:A7").Select 'A1:A7を選択して
8    Application.CutCopyMode = False
9    Selection.Copy 'コピーして
10    Range("B11").Select '行き先のB11セルを選択して
11    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
12        :=False, Transpose:=False　'値を貼付けする(B11:B17にA1:A7の値がコピーされる）
13    '以下、同様のコードでB1:B7がC11:C17に、C1:C7がD11:D17に、D1:D7がA11:A17にコピーされます。
14    Range("B1:B7").Select
15    Application.CutCopyMode = False
16    Selection.Copy
17    Range("C11").Select
18    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
19        :=False, Transpose:=False
20    Range("C1:C7").Select
21    Application.CutCopyMode = False
22    Selection.Copy
23    Range("D11").Select
24    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
25        :=False, Transpose:=False
26    Range("D1:D7").Select
27    Application.CutCopyMode = False
28    Selection.Copy
29    Range("A11").Select
30    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
31        :=False, Transpose:=False
32End Sub