- ベストアンサー
マクロの作成 行の移動
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
>ワークシート上の指定行を最終行の次へ移動し >移動した後の空白となった指定行を削除する 質問の意味がよく分かりません。本当は、記録マクロで、その内容を見せていただいたほうがよいですね。「指定行」というのは何を意味するのか分かりません。「指定行」というのを、4～7に選択して、マクロを実行すれば、左から右のように変わります。 前 後 1 1 2 2 3 3 4 8 5 → 9 6 10 7 4 8 5 9 6 10 7 私の解釈なら、こういうようになりましたね。(入門用のコードにしています） '// Sub Test1() If Selection.Rows.Count > 1 Then With Selection Set rng = .Cells rng.Copy Cells(Rows.Count, .Column).End(xlUp).Offset(1) rng.EntireRow.Delete ActiveCell.Select End With End If End Sub
関連するQ&A
- エクセルマクロ 空白行の削除ですが、コピー時の問題
いつもお世話になっております。 エクセルのマクロですが、指定したシートの指定した行にデータが 入っていない場合に削除するマクロなんですが、行くつか試してみ ましたが、削除したものをコピーして張り付けると、削除された行も コピーされてしまいます。完全に削除するにはどのようにしたらよい のでしょうか。 空白行のあるデータを、空白を無くしてデータベースにコピーする 作業を行いたいのですが、他によい方法はありますでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 行の移動
ボタンを使って行の移動をさせるマクロを組みたいのですが、うまく動いてくれません。指定した行をエクセルシートの最上段に表示させる書式を教えてください。宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel 空白行を上に詰めるマクロ
関数を使用して、sheet1からsheet2に必要なデータを抜き取りました。 sheet２のセルには関数が入っています。 sheet2の抽出データには１行単位（まれに２～３行続けて）空白が発生します。 この行を削除し、かつ上に詰めて表示をしたいのですが、下記の条件で実行可能でしょうか？ （例） sheet1 ⇒ sheet2 A B C A B C 1 あ い う 1 あ い か 2 か 2 （空白行） 3 き く け 3 き く し 4 こ さ し 4 （空白行） ●２行目、４行目を削除し、且つ５行目以降に入力されている関数は削除したくない ●空白行削除のマクロは自動？（sheet1のデータを変更したら）で実行できるようにしたい よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【マクロ】データが１つもない行を削除する
添付した画像のようなファイルがあります。 この表の中で、データが一つもない行は削除して、上詰めにするマクロを実行したいです。 また、このシートの表は１１行で終わっていますが、 他のシートは２５行目で終わっていたりとバラバラです。 すべてのシートでこの処理を行いたいと思っていますので、 他のシートで処理を行ってもエラーのでないマクロを教えていただけたら幸いです。 ちなみに、 ・各シートに表はひとつづつ。 ・各シートの表の開始セルは同じ。 ・全シートに対して一気に処理を行いたい。←指定した処理をすべてのシートで行うマクロは作成済なので大丈夫です。
- ベストアンサー
- Excel（エクセル）
- エクセルで型番ごとにワークシートをマクロで作る方法
昨日質問させて頂いたものです。 説明が下手でなんとかうまく伝えられる文章を考えてみました。 やりたいことは、画像のワークシート「メイン」をから[移動またはコピー] で新たにワークシートを作成し、新しいワークシートから 2001の型番よりしたの型番を削除し2001だけのワークシートをつくり、 次に2002の型番より上の2001と2002より下の型番を削除し、 2002だけのワークシートを作りたいです。 つまりは、単体の型番だけのワークシートを作りたいです。 ちなみに１，２，３行は消したくないです。 この一連の作業をマクロで作れる方お願いします。。
- ベストアンサー
- 会計ソフト
- エクセルで文字最終行の空白セルへ移動
エクセル２０００です。 １０００行内で間にとびとび（順不同）に空白セル、他は文字有りです。 （１０００行目は文字あり） シートが１０個あり、各シートともばらばら（ウィンドー枠固定位置）ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル（ＡからＺ列のいずれか）へ移動したいです。 方法がありますでしょうか？ ＶＢＡの場合、素人につきＶＢＡへの入力方法等も一緒にお願いします。またＶＢＡの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。（立ち上がり時のマクロ警告はあり） よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel帳票の余剰行を削除したい
WinXp、Excel2002環境でVBAを使用して以下の事を行っています。 既作成済みのcsvファイルをExcelのワークシートへ貼り付けて帳票を作成しているのですが、貼り付けるデータの長さが不定の為、罫線を引いた帳票の余白部分を削除したいと思っています。 最終行への移動は Range("c65536").end(xlUp).Select で行えている(筈)ですが、その次の行から罫線を引いた最終行(このカラムはコンスタントで渡せます)迄の範囲指定を今一つ上手く行えず困っています。 あまり凝らずに行範囲選択と削除を行う方法をお教え下さい。
- ベストアンサー
- オフィス系ソフト
- Excelで空白行を削除するマクロは？
マウスやキーボードを使った記録式でマクロを作っています。 その中でシート上に散らばっている数十行の空白行を削除する行程が必要です。 しかし、マウスやキーに依るメニューでは「空白行の削除」と言うのが有りません。 VBEに直接打ち込まないといけない様です。 ステートメントが分かる方が要らしたら教えてください。
- ベストアンサー
- オフィス系ソフト
補足
質問からしてうまくなくすみませんです。 100行まで入力してあるワークシート上で任意の行を指定してその行を101行目に移動し、指定した任意の空白となった行を削除したいのですが。