マクロで行を追加してコピー・貼り付け・削除する方法について教えてください

2011/11/27 00:40

このQ&Aのポイント

Excelのマクロを使用して、行を追加し、セルのコピー・貼り付けを行い、最後に行を削除する方法について教えてください。
マクロを使用することで、セルのコピー・貼り付けを簡単に行うことができます。具体的な手順としては、指定した行に新しい行を挿入し、コピーしたい範囲のセルを選択してコピーし、貼り付けたいセルを選択して貼り付けるというものです。
また、最後に不要な行を削除することも可能です。行を削除する際は、削除したい行を選択して削除するだけでOKです。マクロを使用することで、これらの操作を効率的に行うことができます。

noname#144314

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2011/11/27 01:27 回答No.1

不明のどこかからコピーしてきた内容を，Ｓ１セルから右向けに貼り付けていますね。つまり「（オリジナルを）コピーする」の部分が掲示されたマクロに含まれていないので，いったいどこから何を持ってきたのかが不明ですが，少なくとも「エクセルではない何か」からコピーしてくる事が前提になっています。たとえば「ネットの画面からコピーしてきた」などの状況です。 ’１行目に空行を挿入する Rows("1:1").Select Selection.Insert Shift:=xlDown ’Ａ１に貼り付けを行う Range("A1").Select ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:= _ False ’貼り付いたＡ１：Ａ３７を改めてコピーする Range("A1:A37").Select Selection.Copy ’Ｓ１セルに形式を選んで貼り付けの「行と列を入れ替える」で右向けに貼り付ける Range("S1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ’Ａ列に最初に貼り付けた内容を消去し，Ａ１を選択して終了する。 Columns("A:A").Select Application.CutCopyMode = False Selection.ClearContents Range("A1").Select End Sub

質問者