- ベストアンサー
マクロの行削除の記述の仕方
noname#79209の回答
どうしてもマクロでなくてはいけないのでしょうか？ １回限りのことで良いのなら、マクロではなく以下の方法は如何でしょう。 1. ５行目が列タイトルであれば、AI5（5行目のタイトルならどのセルでも良い）をアクティブセルにする。 2. 「データ」->「フィルタ」->「オートフィルタ」を設定。 3. AI5の「下向きの三角形」をクリックし、「k000000」を選択。 4. 「k000000」が入った行のみが選択されるので、行番号上でドドラッグして「k000000」が入った行を選択。 5. そのまま、「編集」->「行の削除」をクリック。
関連するQ&A
- VBAマクロ抽出の記述
Ａ列からＡＨ列の６行目からデーターベースが入っています。 条件としてＡＨ列６行目の欄にKという文字で Ｆ列～ＡＣ列までのデータがブランク以外のデータを抽出したい。 このマクロの記述の仕方を教えてください。
- ベストアンサー
- Visual Basic
- 行削除のマクロ
B列～F列にデータが入っていてB列の最終行の下セルを選択しクリップボードのデータを貼り付けた後、貼り付けたデータの最初の3行を削除するマクロを作っています。 Sub Macro1() ''Worksheets("Sheet1").Activate ' addrw = Range("b65536").End(xlUp).Offset(1).Row Cells(addrw, 2).PasteSpecial end sub これでB列の最終行の下にデータを貼り付けることまで出来たのですが貼り付けた最初の3行の削除の仕方がわかりません。 いい方法があれば教えていただけないでしょうか。 例えばB列の10行目まで既に入力されていた場合、11行目からクリップボードのデータを貼り付け（ここまでは上のプログラムで出来ました。）、11行目から13行目を削除したいのですがどうしたらいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- 行を削除するマクロ2
a列には0から2の数値が入っています。 2行目から、a列の数値が2かつ最下の行(この画像の場合は12行目)までを削除するマクロのvbaの構文を教えてください。 ただし、a列の数値がすべて2未満の場合、行は削除しないようにしてください。 削除するのは行全体で、a列だけではありません。 エクセル2010です。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excel2000マクロ記述
シート名JISEKIの中のＦ列には２行目から４桁のコードが入っています。 Ｘ列の２行目から数値データが入っています。 条件としてＦ列のコードがA310又はA505で、Ｘ列の数値がマイナスの場合は、 Ｒ列からＷ列の数値データを非表示にしたい。 これをマクロ化したいのですが、記述の仕方を教えてください。
- ベストアンサー
- Visual Basic
- エクセル マクロの記述をご教示下さい。
宜しくお願い致します。 ● Aファイルに下記のようなマクロを記述したい。 ・BファイルのB列の６行目から２０００行に入力されている、データを 削除する。 ・出来れば、人為的にBファイルは、立ち上げない状態で削除したい。 ・マクロを実行することによって、自動的に立ち上がるのは結構です。 ・また、削除後、Bファイルは立ち上がっていても結構です。 ご指導のほど宜しく御願い申し上げます。
- ベストアンサー
- Windows XP
- 重複行削除のマクロ
重複行を削除するマクロを作っていますが、うまくいきません。 2行目にタイトルが入っていて、3行目以降が必要なデータになります。 この中でA列が一致しているデータ行を削除したいと考えており、 重複データが削除された後、タイトル行がなぜか一番下の行にはりついてしまいます。 どなたか詳しい方助けてください！！！よろしくお願いします。 ちなみに以下が現在使用しているVBAコードです。 =============================================================== Sub GoodRemoveDuplicates() 'A列にデータが入力されており、そのデータを並べ替えた後、 '重複するデータが含まれている行を削除するマクロ Worksheets("貼り付け用用マクロ").Range("A1").Sort _ key1:=Worksheets("貼り付け用用マクロ").Range("A1") Set currentCell = Worksheets("貼り付け用用マクロ").Range("A1") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) If nextCell.Value = currentCell.Value Then currentCell.EntireRow.Delete End If Set currentCell = nextCell Loop End Sub ===============================================================
- ベストアンサー
- Visual Basic
- 特定の文字がある行以外を削除するマクロ
特定の文字がある行以外を削除するマクロを作りたいです。 データの範囲はＡ１からＫ50000 Ｅ列にＳ01、Ｓ02、Ｅ03と書いてあるセル以外の行を削除したいです。 Ｅ列にはＳ01～Ｓ５０、Ｅ01～Ｅ１００というような数値があります。 どうぞよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- アクティブになっている行をマクロで削除したい
特定の文字の入っている行とそれ以下の行全部を削除したいのですが どうしたらよいでしょうか 例えば"小計"の入っている行から下の行を削除したいのですが 行の位置はいつも違っています セルの位置は検索で分かりますし行の削除はShift+スペースで消し それより下はShift+ctrl+方向キー+delで出来るのですが それだとマクロで実行するときいつも同じ行を消してしまいます どの位置にも関係なくアクティブセルの含まれている行とそれ以下の行を マクロで削除するにはどのように記述すればいいですか
- ベストアンサー
- オフィス系ソフト
- マクロの記述について
エクセルのマクロについて教えてください。 A列には氏名B列にはコードが入っておりC列からG列に数字が入ります。 C列からG列までのすべてが0の時にその行を削除したいのです。 よろしくお願いします
- ベストアンサー
- その他MS Office製品