
テーブルの任意の行が空白の状態で、空白削除ボタン(cmd_Blank)をクリックすると、
削除したデータ行(空白行)を削除するVBAを作ったのですが空白行が1つの場合は問題
なく動作するのですが(添付左)、
・空白"セル"があるとその行がすべて削除されてしまう(添付中央)。
・空白行が2つ以上あるとエラーになってしまう(添付右)
という問題に悩んでいます。
空白削除ボタンクリック時のコードは
Private Sub cmdBlank_Click()
ActiveSheet.ListObjects("T住所").DataBodyRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
としました。
添付の図がわかりにくいかと思いますが、ボタンクリックすると
テーブル内の空白行があったら、その行のみ削除され、上詰めに
したいということです。
どなたか教えていただきたいです。

No.1ベストアンサー
- 回答日時:
良く見えませんが 真ん中の場合 定義不足が原因ではないでしょうか
空白セルを探す列などを絞れば良いと思います
右画像については 手作業(選択して右クリックメニュー)で理解できると思いますが テーブルを含む行の場合に複数行の一括削除はできないと思われます
また、SpecialCells(xlCellTypeBlanks)については見つからない場合
1004エラーが返されますので対策が必要です
テーブル、行列の削除についての参考サイトです
https://daitaideit.com/vba-table-delete/
ざっくり(ご質問記載コードを添削)
ListColumns(1) (テーブル内一番左列の空白データ対象)例
Sub test1()
'テーブル行のみ
On Error Resume Next
With ActiveSheet.ListObjects("T住所")
.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeBlanks).Delete
End With
On Error GoTo 0
End Sub
テーブル外の行も同時削除する場合
Sub test2()
'行全部
With ActiveSheet.ListObjects("T住所").DataBodyRange
.AutoFilter 1, "="
On Error Resume Next
Application.DisplayAlerts = False
.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
On Error GoTo 0
.AutoFilter 1
End With
End Sub
記事にあるものと一致している方法かはわかりません
(記事は流し読みの為未検証)
サンプル例は未検証
デバッグ時はOn Error Resume Nextを外してください
また、
On Error Resume Next
Application.DisplayAlerts = False
などは必要に応じて改修してください
No.3
- 回答日時:
#1です
時間が空いたので読み返しました
>という問題に悩んでいます。
空白削除ボタンクリック時
#1の回答は
ご質問のコードやトリガーからDataBodyRangeの空白セルすべてに対して処理したいと解釈しましたが
考え方を変えて
空白セルをダブルクリックした時に空白セルを含むリストデータ行を削除するような考え方ですと悩みは解消できそうです(利便性の是非は分かりません)
トリガーをテーブルデータ範囲のダブルクリックとして
対象セルが空白だった場合に データ行を削除して上に詰める方法
テーブルのあるシートモジュールに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim objList As Object
Set objList = ActiveSheet.ListObjects("T住所").DataBodyRange
If Intersect(Target, objList) Is Nothing Then Set objList = Nothing: Exit Sub
If Target.Value = Empty Then
Cancel = True
Application.EnableEvents = False
Target.Delete
Application.EnableEvents = True
End If
Set objList = Nothing
End Sub
No.2
- 回答日時:
こんばんは
試してみましたが、確かにテーブルだとエラーになるようですね。
テーブルを解除して、通常のセル範囲で同様に行えば削除できるので、テーブル特有の反応のようです。
手動で試してみると、テーブルで複数行を選択した状態では、削除のメニューがグレーアウトしてできないようになっているので、そもそもがそのような仕様になっているようです。
とは言え、ご提示の方法だと同一行内に空白セルが複数あると、同じ行を重複して指定することになるので、その場合はテーブルではなくてもエラーになります。
(同じ行を2回は削除できないということかと・・)
一方で、ご質問文で「空白行」とおっしゃっているのが、
・「空白セルを含む行」 のことなのか、
・「1行のセルが全部空白の行」
のどちらを意味しているのか不明ですけれど、素直に解釈すると「行全部のセルが空白の行」となると思います。
これに対して、ご提示のコードは「行内に空白セルが一つでもあれば」になっているので、意図とは異なることになりそうです。
いずれにしろ、1行ずつ判定して削除すれば問題なさそうですので、
For Each rw In ActiveSheet.ListObjects("T住所").DataBodyRange.Rows
'1行分の判断および処理
Next rw
のようにして、1行ずつ処理すればよさそうですが、処理が「行削除」なので逆順で処理しておかないと少々面倒ですね。
逆順で処理するなら、
Set rg = ActiveSheet.ListObjects("T住所").DataBodyRange
For r = rg.Rows.Count To 1 Step -1
'1行分の判断および処理
Next r
のような形式にしておくことで可能と思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
-
4
Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range
Excel(エクセル)
-
5
別のシートから値を取得するとき
Visual Basic(VBA)
-
6
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
7
Excelマクロで、稼働中のマクロを確認する方法
その他(Microsoft Office)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
空白行がある場合削除 マクロ
Excel(エクセル)
-
10
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
13
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
14
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
15
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
16
Excel VBAでオートフィルタで抽出したデータの一部だけ貼り付けるには(第2弾)
Excel(エクセル)
-
17
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
18
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
19
エクセルのヘルプファイルって作れるのですか?
Excel(エクセル)
-
20
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel テーブル内の空白行の削除
-
アクセス2010について
-
物理削除と論理削除、どっちが...
-
Accessのテーブルをすべて削除
-
「テーブルに座って……」という...
-
Accessでデータシートに同じデ...
-
accessでレコード更新直後の反...
-
Oracleのsystem表領域について
-
飲み会で、座敷orテーブルどち...
-
SQLにて指定日付より前、かつ最...
-
一つ前に戻るには…
-
SQLです教えてくださいお願いし...
-
SQLあってますか?こう?
-
sqlplusで表示が変なので、出力...
-
SQLで漢字名称を都道府県や市区...
-
外部キーだけのテーブル(主キ...
-
ビューのソートについて
-
SQL構文です 画像のようにした...
-
テーブル:生徒名簿 生徒名簿の...
-
SQL、2つのテーブルで条件一致...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのマクロでテーブルのデ...
-
Excel テーブル内の空白行の削除
-
条件付DELEATE文について
-
HiRDBのPURGEとDROPの違い
-
トリガって、自分自身のテーブ...
-
削除フラグってどうなんでしょう?
-
アクセス2010について
-
大量のレコードを削除する方法
-
アクセスのクエリでレコード削...
-
Access2000の削除クエリで消し...
-
CSVファイルから一括して削除す...
-
SQL削除条件について
-
mysqlで間接クエリー実行させた...
-
テーブルが削除できない
-
Access2003 VBAのDELETEについて
-
【Access】連鎖削除を自動化
-
リレーションについて
-
MySQLのストアドでファイルを削除
-
アクセス通貨型or数値型について
-
マージレプリケーション
おすすめ情報