
テーブルの任意の行が空白の状態で、空白削除ボタン(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も見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range
Excel(エクセル)
-
6
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
7
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
11
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
12
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
13
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
16
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
17
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
18
エクセルで英数大文字のみの入力制限は可能ですか
Excel(エクセル)
-
19
エクセルVBAで行削除時にエラーが発生します。
Excel(エクセル)
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel テーブル内の空白行の削除
-
トリガって、自分自身のテーブ...
-
アクセスのクエリでレコード削...
-
リレーションについて
-
CSVファイルから一括して削除す...
-
大量のレコードを削除する方法
-
HiRDBのPURGEとDROPの違い
-
すべてのテーブル削除
-
ワークテーブルなのに自動で削...
-
外部キーだけのテーブル(主キ...
-
SELECT 文の NULL列は?
-
SQLにて指定日付より前、かつ最...
-
テーブル名をカラムとして取得...
-
Accessでデータシートに同じデ...
-
SQL、2つのテーブルで条件一致...
-
SQL*LoaderでCSVから指定した列...
-
一つ前に戻るには…
-
L2SWはARPテーブルを持っている?
-
テーブルに存在しない列をselec...
-
ACCESS アクセスで他のデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel テーブル内の空白行の削除
-
アクセスのクエリでレコード削...
-
トリガって、自分自身のテーブ...
-
大量のレコードを削除する方法
-
アクセス2010について
-
条件付DELEATE文について
-
HiRDBのPURGEとDROPの違い
-
Access2000の削除クエリで消し...
-
CSVファイルから一括して削除す...
-
アクセス通貨型or数値型について
-
ワークテーブルなのに自動で削...
-
列のDEFAULT設定を削除するコマ...
-
Access2003 VBAのDELETEについて
-
物理削除と論理削除、どっちが...
-
ACCESSのマクロでテーブルのデ...
-
mysqlで間接クエリー実行させた...
-
削除フラグってどうなんでしょう?
-
Accessのテーブルをすべて削除
-
リレーションについて
-
連番をふり直した後の文字の桁...
おすすめ情報