特定の文字の入っている行とそれ以下の行全部を削除したいのですが
どうしたらよいでしょうか
例えば"小計"の入っている行から下の行を削除したいのですが
行の位置はいつも違っています
セルの位置は検索で分かりますし行の削除は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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA アクティブ行の削除
その他(Microsoft Office)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
Excel 指定行削除マクロ
Excel(エクセル)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
11
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
17
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
18
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
19
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
20
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
結合されたセルをプルダウンの...
-
[EXCEL]ボタン押す→時刻が表に...
-
罫線の斜線を自動で引くマクロ
-
Excel グラフのプロットからデ...
-
アクティブになっている行をマ...
-
エクセルマクロで偶数行(又は...
-
エクセル 上下で列幅を変えるには
-
完全一致したら代入するマクロ...
-
AのセルとB行を比較して、一致...
-
【EXCEL】連続データの個数を抽...
-
A1に入力された文字列と同じ文...
-
エクセルマクロ オートSUM(合...
-
VBAで色の付いているセルの行削除
-
【VBA】「同じ文字を含むセ...
-
Excel ウインドウ枠の固定をす...
-
電話番号の入力方式が違うデー...
-
エクセル 数字のみ残したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
[EXCEL]ボタン押す→時刻が表に...
-
excel 小さすぎて見えないセル...
-
AのセルとB行を比較して、一致...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
Excel グラフのプロットからデ...
-
エクセル2016で時間を入力して...
-
VBAで色の付いているセルの行削除
-
特定の文字がある行以外を削除...
-
連続データが入った行の一番右...
-
エクセルVBA 最終行を選んで並...
-
エクセルのセルに指定画像(.jpg...
-
エクセルで昨日までの日付デー...
-
エクセルマクロで偶数行(又は...
-
A1に入力された文字列と同じ文...
おすすめ情報