• ベストアンサー

エクセル 同じ作業(行の削除,コピーペースト)を簡略化したい。

いつもありがとうございます。 Excel2000を使ってデータの加工をしています。 3000行くらいあるワークシートがあります。 1.その中から削除したい行があるので,いちいち行番号のところで右クリックをして削除をしています。 これをもっと簡略化する方法はないでしょうか。 2.コピーペーストを繰り返す作業もしています。左手の小指がツリそうでプルプルしているのです。こちらも更に簡略化する方法はないでしょうか。 説明が拙くて申し訳ありません。

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

  • ベストアンサー
  • saru_1234
  • ベストアンサー率33% (452/1341)
回答No.3

> 2.も是非おねがいいたします ペーストするのが同じ内容でしたら、 コピーの後にペーストする箇所を同様に複数選択してから 貼り付けると一気に同じ内容を貼れます。 内容が異なる場合、連続して一列に並んでるなら そのブロックをまとめて選択してコピーします。 貼り付けの際は一番上のセルだけ選択すればOKです。 お望みと異なってたらすみません。

cherokee32
質問者

お礼

望みどおりです! 欲を言えば,いろいろな作業をしている中で「ペースト」という作業を差し込めればな,と考えています。

その他の回答 (7)

  • koko88okok
  • ベストアンサー率58% (3839/6543)
回答No.8

同じ作業の繰り返しではありませんが・・・ 直ぐ上のセルと同じものを入力(コピー&ペースト)するには、 「Ctrl+D」のショートカットを使うと、マウスを持たなくてよいので楽です。 最近、覚えたお気に入りです。

cherokee32
質問者

お礼

これ,すごく使えますね。 ありがとうございます。 今回の件では他の方法で解決したのですが,一つ覚えました。

  • saru_1234
  • ベストアンサー率33% (452/1341)
回答No.7

ANo.6 です。文が変でしたので訂正です。 誤> 普通のコピー&ペーストは確かにペアになってしまっていて不便と思います。 正> セルのコピー&ペーストは確かにペアになってしまっていて不便と思います。

  • saru_1234
  • ベストアンサー率33% (452/1341)
回答No.6

ANo.3 です。 > 欲を言えば,いろいろな作業をしている中で 普通のコピー&ペーストは確かにペアになってしまっていて不便と思います。 しかし、対象が文字または数字のみ(セルの書式情報が不要)であれば、 文字列のみコピーしておけば、 貼り付けは入力のタイミングでいつでもできます。

  • hirorin00
  • ベストアンサー率50% (446/884)
回答No.5

はじめまして 1、 例えばその表がA列からC列まで使っているとします。 D列に1から順に通し番号を入れます。 E列の消したい行に自分で決めた記号、例えば「x」を入れていきます。 E列をキーにしてソート(並び替え)します。 「x」マークの行が揃いますので一括して削除します。 D列をキーにしてソートします。 2、 同じ内容をたくさん貼り付けるのでしょうか? それともコピーしては貼り付け、コピーしては貼り付けでしょうか? 前者ならば、コピーした後、貼り付けたいところをCTRLキーを押しながら選択し、最後にまとめて貼り付ければOKです。 後者ならば、マメに行くしかないのかなぁ… おまけ F4キーで直前の作業を繰り返しすることができます。 これでいかがでしょう。

  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.4

1.についてはお手伝いできそうです ショートカットキーに行削除マクロを割り当てる方法です。。(#01さんのCtrlで複数選択することで解決済みなら読み飛ばしてください) 以下のマクロをALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。次にALT+F8を押して、マクロ一覧を表示し、LineDELを選択し「オプション」ボタンをクリックします。 するとキーボードショートカット登録画面が表示されますので適当な文字を登録してください(大文字、小文字は別文字として判定されます)。シートで消したい行のセルを選択し「Ctrl+登録した文字」を押下すると確認メッセージが表示されますので、OKで削除、キャンセルで中止します。 Sub LineDEL() Dim k As Integer k = MsgBox("選択された行を削除します", vbOKCancel) If k = vbOK Then Selection.Cells(1, 1).EntireRow.Delete End If End Sub もし確認メッセージがうるさいようであれば以下のマクロにすればメッセージは表示しないでいきなり行削除します。 Sub LineDEL2() Dim k As Integer Selection.Cells(1, 1).EntireRow.Delete End Sub 2.については条件が足りないのでアドバイスできません。

cherokee32
質問者

お礼

ありがとうございます。 手っ取り早くやりたかったので,この方法はとりませんでしたが,週末にゆっくりやったところ,出来そうでした。これも使えますね。

  • hite3103
  • ベストアンサー率0% (0/3)
回答No.2

2も1同様、複数選択→Ctrl+Vでできるのでは?

cherokee32
質問者

お礼

確かに出来ました。。疲れてますね。 どうもありがとうございました!

  • auw42s
  • ベストアンサー率11% (1/9)
回答No.1

ちょっと状態がわかりにくいのですが、 複数行を削除するならば、まずCtrlを押しながら削除する行をすべて選択して、一気に削除するって方法はどうですか~?

cherokee32
質問者

お礼

すごい解決しました。。。 初歩的な考えが足りなかったです。すみませんでした。 でもありがとうございます! 2.も是非おねがいいたします!

関連するQ&A