- ベストアンサー
エクセルの行を削除したい。
VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて5行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。
- みんなの回答 (6)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- ichhabehunger
- ベストアンサー率55% (27/49)
- ichhabehunger
- ベストアンサー率55% (27/49)
- hotosys
- ベストアンサー率67% (97/143)
- kazne
- ベストアンサー率66% (8/12)
- ichhabehunger
- ベストアンサー率55% (27/49)
関連するQ&A
- Excelで空白行を削除したい
2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA~Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。
- ベストアンサー
- オフィス系ソフト
- Excelの行削除について
A1のセルに「小計」という文字が入力してあり、A5にも「小計」という文字が入力してあるとします。 マクロを使いA2~A4を削除したときに「小計」が並びます 。 A A 1 小計 1 小計 2 2 小計 3 → 3 4 4 5 小計 5 このときに下の行にある小計を自動で削除する方法があれば教えてください。 A A 1 小計 1 小計 2 小計 2 3 → 3 4 4 5 5 よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- VBA 21行目~表の最終行まで行削除
WinXPでExcel2003を使用しています。 VBAで、21行目から表の最終行までの行削除するマクロを作りたいのですが、上手くいきません。 Sub 行削除() Range("A21").CurrentRegion.Select Selection.Delete End Sub だとその上下に文字が入ったセルがあると一緒に削除されてしまうので、 どの様にすればいいのか分からないでいます。 最終行を何行目と特定せずに表の最終行を取得して、 削除範囲を設定出来るものが希望です。 どなたか教えて下さると助かります。 よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- アクティブになっている行をマクロで削除したい
特定の文字の入っている行とそれ以下の行全部を削除したいのですが どうしたらよいでしょうか 例えば"小計"の入っている行から下の行を削除したいのですが 行の位置はいつも違っています セルの位置は検索で分かりますし行の削除はShift+スペースで消し それより下はShift+ctrl+方向キー+delで出来るのですが それだとマクロで実行するときいつも同じ行を消してしまいます どの位置にも関係なくアクティブセルの含まれている行とそれ以下の行を マクロで削除するにはどのように記述すればいいですか
- ベストアンサー
- オフィス系ソフト
- Excel VBAでの行の削除について
Excel VBAを使用して2行ずつ行の削除をし、1行残して(3行目を残す)また2行ずつ行の削除、1行残しす(6行目を残す)をループして行う方法が知りたいです。 イメージとしては以下のような感じです。 ━━【A】━━━━ 【1】あいうえお 【2】かきくけこ 【3】さしすせそ 【4】たちつてと 【5】なにぬねの 【6】はひふへほ 【7】まみむめも 【8】やゆよ 【9】らりるれろ ━━━━━━━━━ ↓マクロ実行後↓ ━━【A】━━━━ 【1】さしすせそ 【2】はひふへほ 【3】らりるれろ ━━━━━━━━━ 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルマクロ行削除
エクセル2013です。 以下の行削除マクロを作りました。 取得した 最終行が20行目として 最終列がZ列として セル Z20 の値が 1以上なら問題なく動作するのですが セル Z20 の値が 0 だとループして終了しません。 どこを修正しても、思うように動作しません。 どこを修正すれば、いいのでしょうか? よろしくお願いします。 Sub 行削除() Dim 最終行 Dim 最終列 Dim 対象行 最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得 最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得 Application.ScreenUpdating = False '画面切替停止 For 対象行 = 10 To 最終行 If Cells(対象行, 最終列) = 0 Then Rows(対象行).Delete 最終行 = 最終行 - 1 '削除により最終行が1行減ったので最終行の値を1行減らす 対象行 = 対象行 - 1 '削除により対象行が1行繰り上がったので対象行の値を1行減らす Else End If Next 対象行 Application.ScreenUpdating = True '画面切替停止解除 End Sub
- ベストアンサー
- Excel(エクセル)
- エクセル2000 規則に従った行の削除
エクセルの行削除について、次の規則で行いたいと思います。 規則 35 削除する行 36 削除する行 37 削除する行 38 削除する行 39~71 残す行(33行) 72~75 削除する行(4行) 以下、33行残し、4行削除を繰り返します。 この操作をVBAを使って行いたいのですが、ご存知の方がいらっしゃいましたらよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 不要行の削除について
皆さんこんにちは。 お忙しいところ恐れ入ります。 以下の内容をVBAで実行したく色々やってみたのですが、思うように動きません。 もしお分かりになる方がおられましたらご教示の程ねがえませんでしょうか? 1.A列に”無作為な数値(例えば1から100)”と”空セル”がランダムに並んでいる。 2.このA列に、指定した数値(例えば3,7,15,23,50,88など色々)があった場合、 その指定した数値が書かれている行のみを行ごと削除したい。 以上です。 お忙しいところ恐れ入りますが、どうぞよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCEL VBA マクロ 特定の行削除
Excelで特定の文字例が含まれるセルが存在する行のみを自動で削除したいのですが、VBAで自動で処理する事は可能でしょうか? 1万行程度あるので、自動で実行したいと思っております。 プログラムの知識がないので、どなたかご教授下さい。
- 締切済み
- Visual Basic
- VBAの行削除について
VBAで行を削除したいです。 データが何百行かあって、その下から空白行が最終行までできています。 その空白行部分を削除したいのですが。 どのようにコーディングすればいいのですか?
- ベストアンサー
- その他(プログラミング・開発)
お礼
ありがとうございます。 削除できました。 回答が遅くなってすみません。 諸事情ありまして、閲覧は出来るのですが書き込みが出来ないパソコンを使ってまして、携帯からなので言葉少なく、お礼が短文ですみません。