特定の文字の入っている行とそれ以下の行全部を削除したいのですが
どうしたらよいでしょうか
例えば"小計"の入っている行から下の行を削除したいのですが
行の位置はいつも違っています
セルの位置は検索で分かりますし行の削除はShift+スペースで消し
それより下はShift+ctrl+方向キー+delで出来るのですが
それだとマクロで実行するときいつも同じ行を消してしまいます
どの位置にも関係なくアクティブセルの含まれている行とそれ以下の行を
マクロで削除するにはどのように記述すればいいですか
No.1ベストアンサー
- 回答日時:
> どの位置にも関係なくアクティブセルの含まれている行とそれ以下の行を
> マクロで削除するにはどのように記述すればいいですか
(検索の部分は割愛してますが)上記の要求をそのままコードにすると以下のようになると思います。
うまくいきませんか・・・?
Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell)).EntireRow.Delete
意味:アクティブセルから使われたセル範囲内の最後のセルまでの行全体を削除
この回答への補足
ありがとうございます問題は解決しました
あと一つ
アクティブセルを含む行をショートカットキーでなくVBAで選択状態(反転状態)にするにはどうしたらいいんでしょうか
No.4
- 回答日時:
No.1です。
> アクティブセルを含む行をショートカットキーでなくVBAで選択状態(反転状態)にするにはどうしたらいいんでしょうか
こちらもこの要求をそのままコードで書くと、以下ようになります。
お試しくださいませ。
ActiveCell.EntireRow.Select
意味:アクティブセルを含む行全体を選択(反転状態)
ありがとうございますお礼が遅れました。
シンプルですね、最近VBAもといマクロに興味もったのでまだまだ初心者です。
なのでコードとかはよく分からないです。本借りて勉強しよっと。
No.3
- 回答日時:
こんにちは。
>特定の文字の入っている行とそれ以下の行全部を削除したいのですが
質問の意味が良く分かりません。何か、言葉だけですと、二重の意味が入っているようですが。
行の削除はShift+スペースで消し →?
--行全体を削除
それより下はShift+Ctrl+方向キ(↓)+Delで →?
--文字を見つけ削除した行の下の列のみをClear すること?
(End プロパテイは、最下行から探すような仕方のほうがよい)
小計のある列を選択してから、マクロを実行するから、ショートカットを取り付けたほうが便利です。
'標準モジュール
'
Sub SpecialCellsDelete()
Dim i As Long
On Error Resume Next
i = 0
i = WorksheetFunction.Match("小計", ActiveCell.EntireColumn, 0)
On Error GoTo 0
If i > 0 Then
Cells(i, ActiveCell.Column).EntireRow.Delete
Range(Cells(i, ActiveCell.Column), _
Cells(Rows.Count, ActiveCell.Column).End(xlUp)).ClearContents
Else
MsgBox "この列に「小計」はありません。", vbInformation
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/10/03 09:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA アクティブ行の削除
その他(Microsoft Office)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
エクセルでエラーが出て困っています。
Excel(エクセル)
-
5
Excel 指定行削除マクロ
Excel(エクセル)
-
6
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
7
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
11
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
12
エクセルのマクロで検索・抽出したデータを修正及び更新して元データに反映
Excel(エクセル)
-
13
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
14
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
15
数式は残し値をクリアするマクロについてご教示お願いします。 Private Sub CommandB
Visual Basic(VBA)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
19
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
20
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
Excel グラフのプロットからデ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロで数値が変っ...
-
特定の文字がある行以外を削除...
-
Excel ウインドウ枠の固定をす...
-
エクセルVBA 最終行を選んで並...
-
エクセル 時間の表示形式AM/PM...
-
エクセル 上下で列幅を変えるには
-
エクセルマクロで偶数行(又は...
-
電話番号の入力方式が違うデー...
-
EXCELマクロを使い、空白行では...
-
結合されたセルをプルダウンの...
-
Excel2007で、指定範囲の行高さ...
-
AのセルとB行を比較して、一致...
-
Excel 空白行を上に詰めるマクロ
-
セルではなく行や列、シート全...
-
チェックボックスをクリックし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
VBAで色の付いているセルの行削除
-
セルの色によって条件文をつけ...
-
excel 小さすぎて見えないセル...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルVBA 最終行を選んで並...
-
EXCELマクロを使い、空白行では...
-
EXCELで最後の行を固定
おすすめ情報