| |
マナ様 γ様
ご教授ありがとうございます。
記録したマクロをベースに、書き換えに挑戦してみません。お陰様で「Ａ列の選択」「何番目のシート選択」と「最後のシート選択」の構文を覚えました。
ここまでの構文は下に貼り付けました。本当に、恥ずかしながらこの程度のレベルなのです。
ここで改めて質問です。
この後、約２００シートを処理する際には、構文を２００回コピーして、シートの選択の（数字）の書き換えと貼り付ける位置（Columns）の書き換えが必要を思われます。
もっとすっきりした構文にしたいと思い、シートは、「次のシートを選択」にするといいのかと思い、（ActiveSheet.Next.Activate）に置き換えてみましたがうまくいきませんでした。「貼り付ける位置を右に一つずつずらす」に関しては、現在のところ検討もつかないところです。
ご教授よろしくお願いいたします。
Sheets(1).Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets(Worksheets.Count).Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(2).Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets(Worksheets.Count).Select
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(3).Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets(Worksheets.Count).Select
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
