- ベストアンサー
アクティブになっている行をマクロで削除したい
pkh4989の回答
- pkh4989
- ベストアンサー率62% (162/260)
こんな感じ? Sub 行削除() startRow = ActiveSheet.Cells.Find(What:="小計").Row With ActiveSheet.UsedRange lastRow = .Cells(.Count).Row End With ActiveSheet.Rows(startRow & ":" & lastRow).Delete End Sub
関連するQ&A
- マクロでActivecellの１行下に移動したい
EXCELのマクロで、あるセルにデータを入力した後、マクロボタンで１行下のセルをアクティブセルにしたいのですが、どう記述したらいいでしょうか？
- ベストアンサー
- Visual Basic
- エクセルマクロで、空白行の一つ下の行を削除したい
下記のようなデータがあるとき、空白行の一つしたの町名を一括で削除するには、どのようなマクロがあるでしょうか。 一定の行数なら私にもわかるのですが…、どなたか教えていただけないでしょうか。 町名 男 女 計 青山 86 183 269 →これが下の四つの町の小計になります。 ○○町 25 43 68 ××町 11 45 56 ▽▽▽ 30 55 85 ◆◆◆ 20 40 60 →空白行 北山町 41 100 90 →これが下の二つの町の小計になります。 △△町 11 45 56 ■■■ 30 55 85 このような表が、8000行あります。必ず空白行の下の行が小計になります。 空白行の一つ下の行、「青山」と「北山」の行を、マクロを使って一度に削除できるでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excelの行削除について
A1のセルに「小計」という文字が入力してあり、A5にも「小計」という文字が入力してあるとします。 マクロを使いA2～A4を削除したときに「小計」が並びます 。 Ａ Ａ １ 小計 １ 小計 ２ ２ 小計 ３ → ３ ４ ４ ５ 小計 ５ このときに下の行にある小計を自動で削除する方法があれば教えてください。 Ａ Ａ １ 小計 １ 小計 ２ 小計 ２ ３ → ３ ４ ４ ５ ５ よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ 行 非表示
マクロについてご教授お願い出来ないでしょうか。 マクロ初心者です。 エクセル アクティブセル（ex A120セルやA20セル）の行から1行目までを非表示にさせるマクロがわかりません。 アクティブセルから下の行を非表示にさせるマクロは下記URLにて紹介がありましたが・・ https://www.relief.jp/docs/excel-vba-hide-below-active-cell.html また、もし可能でしたら、アクティブセルからA2行目までの非表示、つまり 1行目は残すマクロが可能でしたら、合わせてご教授どうぞよろしくお願い致します。
- 締切済み
- Excel（エクセル）
- 行を削除するマクロ
以下のような、行を削除するマクロがあります。 Workbooks("123.csv").Activate Rows("5:10").Select Selection.Delete Shift:=xlUp しかし、123.csvを開いていない場合にはエラーが出てしまいます。 そこで、このようにしました。 On Error Resume Next Workbooks("123.csv").Activate Rows("5:10").Select Selection.Delete Shift:=xlUp しかし、エラーが出ない代わりに、アクティブなブックの行が削除されてしまいます。 123.csvが開かれている場合には、行を削除し、 開かれていない場合には、何もせずエラーも出さないようにするにはど のようにすればいいでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの行を削除したい。
VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて５行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Ｅｘｃｅｌのマクロの記述について知りたい
Ａ１が "山中" 、Ａ２が "４０歳" となっている場合、マクロ記述 「activecell=A1」でアクテイブセルを「山中」にすることはできますが、同時にアクティブセルのひとつ下の行のセルを「４０歳」にする記述をおしえてください。
- ベストアンサー
- その他MS Office製品
- EXCELマクロデータのある行より下の行削除の構文
EXCELマクロ構文について教えてください。 データのある行のひとつ下の行全体選択し、 Ctrl+Shift＋↓で下部行全て選択し、右クリックで削除する 操作をマクロにしたいのでですが、 マクロ記録では上の操作は Rows("189:189").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlU になります。 この 189 という数字は 下記の変数定義で「lastRow」として取得できるのですが Dim lastRow As Long lastRow = Sheets("2CVS関西").Cells(Rows.Count, 2).End(xlUp).Row + 1 189にlastRow に置き換える方法お教えください。
- ベストアンサー
- Excel（エクセル）
- エクセルマクロでの行削除の方法について
エクセルマクロを使用しての行削除の方法についてお伺いします。 現在業務でエクセルに画像内の文字データを入力しています。 入力データは列ごとに半角全角のきまりがあり、 データが入力された行列以外はすべて削除しそれをCSVで保存という流れになっているのですが、 今のところ関数を入れて半角全角チェックをし、それが済んだあとに、 実際のデータ部分以外の箇所をすべて削除し保存しています。 調べたら半角全角はvbNarrowとvbWideという関数があると知り、 列については、特定位置から始まるのでマクロの記録で対応できています(列項目は予め数が決まっていますので)。 ただ、行については画像にどれだけデータがあるかで開始位置が変わってきます。 ***以下は試したマクロ記録です。*** Rows("9:9").Select→何も知らずに「"9：9"」の所で"開始位置の変数：開始位置の変数"としエラーで迷ってます。 Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Columns("F:F").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Delete Shift:=xlToLeft 不特定の行から最終行までを選択削除する方法をご存じの方がいましたらご教授お願いいたします。 上記のマクロ使用環境はExcel2003です。
- ベストアンサー
- その他（プログラミング・開発）
お礼
ありがとうございます、うまくいけました。 いろいろ応用させていただきます。