下記のようなものをみつけました。私の求めるものがこれを変更すればできるのではと思いますが、どのようにしたら良いか分かりません、お教え下さいませんか。列の先頭行には固定の文言が入りますのでも各列の3行までは対象外にしたいと思います。(ちなみに、J列~BD列に空欄のあるもののみ)また、データは1500行程度です。
なお、マクロで別シートに行を削除しようとする元データをそのまま別シートに作れたものを上記のように処理できればなおさらよいのですが・・・・。
Excel VBA A列が特定の値以外の場合、その行を削除
Sub test01()
With ActiveSheet 'アクティブなシートについて
x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得
For i = x To 3 Step -1 '最終行から3行目まで下から順に
If .Cells(i, 1) <> "b" Then .Rows(i).Delete 'A列が"b"でなかったら削除
Next '繰り返し
End With
End Sub
No.6
- 回答日時:
④「J列~BD列が全て空欄の行を削除」だったわけですね。
--------------------------------------------------------------------------------
Sub J列からBD列が見た目が全て空欄だったら行削除()
Dim 終 As Long
Dim 行 As Long
Dim 列 As Long
Dim 有 As Boolean
Application.ScreenUpdating = False
With ActiveSheet 'アクティブなシートについて
終 = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得
For 行 = 終 To 3 Step -1 '最終行から3行目まで下から順に
有 = False 'フラグをリセット
For 列 = 10 To 56 'J列からBD列まで
If Trim(.Cells(行, 列).Text) <> "" Then '見た目が空白でなかったら
有 = True 'フラグをセット
Exit For '中のループを抜ける
End If
Next '繰り返し
If 有 = False Then Rows(行).Delete Shift:=xlUp 'データの無い行を削除
Next '繰り返し
End With
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------------------------
※ 見た目が空白の物(式の結果が空欄の物や空白文字が有る物も含む)も空欄として処理します。
No.5ベストアンサー
- 回答日時:
No.4です。
要するにJ列~BD列に一つもデータがない行を削除すれば良いのですね。
Sub Sample2()
Dim i As Long, myRng As Range
With ActiveSheet
For i = 2 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(Range(.Cells(i, "J"), .Cells(i, "BD"))) = 0 Then
If myRng Is Nothing Then
Set myRng = .Cells(i, "J")
Else
Set myRng = Union(myRng, .Cells(i, "J"))
End If
End If
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Delete
End If
End With
MsgBox "完了"
End Sub
※ 数式によって「空白」に見えるセルではなく、
まったくデータが入っていないセルという前提です。m(_ _)m
No.4
- 回答日時:
こんばんは!
横からお邪魔します。
「空白セル」というのは数式によって空白に見えているセルではなく、全くデータが入っていないセルだという前提です。
一気に行削除する方法はどうでしょうか?
Sub Sample1()
Dim lastRow As Long, myRng As Range
With ActiveSheet
lastRow = .UsedRange.Rows.Count
On Error Resume Next
Set myRng = Range(.Cells(2, "J"), .Cells(lastRow, "BD")).SpecialCells(xlCellTypeBlanks)
myRng.EntireRow.Delete
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
それでしたら以下のようなものはいかがでしょうか?
--------------------------------------------------------------------------------
Sub J列からBD列に空欄が有ったら行削除()
Dim 終 As Long
Dim 行 As Long
Dim 列 As Long
Dim 有 As Boolean
Application.ScreenUpdating = False
With ActiveSheet 'アクティブなシートについて
終 = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得
For 行 = 終 To 3 Step -1 '最終行から3行目まで下から順に
有 = False 'フラグをリセット
For 列 = 10 To 56 'J列からBD列まで
If .Cells(行, 列) = "" Then
有 = True 'フラグをセット
Exit For '中のループを抜ける
End If
Next '繰り返し
If 有 Then Rows(行).Delete Shift:=xlUp '空白の有る行を削除
Next '繰り返し
End With
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
EXCELのデータで空白列を削除したい
Excel(エクセル)
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
-
4
エクセルのマクロで、選択範囲の空白行を削除する方法
Excel(エクセル)
-
5
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
VBAで指定範囲内の空白セルを左詰めで一括削除したいのですが
Visual Basic(VBA)
-
8
エクセルで空白行を削除する 2列とも空白の場合のみ
その他(Microsoft Office)
-
9
エクセルで1行目が空白の場合、列を削除したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
エクセルの表から正の数、負の...
-
エクセルで最初のスペースまで...
-
エクセル 文字数 多い順 並...
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセル 時間帯の重複の有無
-
VBAで文字列を数値に変換したい
-
エクセルの並び変えで、空白セ...
-
文字列に数字を含むセルを調べたい
-
エクセル 同じ値を探して隣の...
-
エクセルで教えてください。
-
エクセルで一列おきに空白列を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
エクセル(勝手に太字になる)
-
Excelで半角の文字を含むセルを...
-
エクセル 文字数 多い順 並...
-
2つのエクセルのデータを同じよ...
-
エクセルで文字が混じった数字...
-
文字列に数字を含むセルを調べたい
-
エクセル 時間帯の重複の有無
-
VBAで文字列を数値に変換したい
-
「B列が日曜の場合」C列に/...
-
エクセル 同じ値を探して隣の...
-
エクセルの項目軸を左寄せにしたい
-
エクセルで、列の空欄に隣の列...
-
お店に入るために行列に並んで...
-
Excel、市から登録している住所...
-
エクセルの並び変えで、空白セ...
-
オートフィルターをかけ、#N/A...
-
エクセルの表から正の数、負の...
おすすめ情報
②「J列~BD列に1つでも空欄のある行を削除」の意味です。
丁寧さがなかったですね、それと間違っていました。まず、間違いは3行ではなく、2行でした。1行目は表題を入れています、2行目は列ごとに列の内容、「記号」とか「種類」とか「氏名」等の名称を入れている行ということです。それ以外のデータのつにいて、空欄のある行とない行があるので、それを整理してまとめたいし、それを元にして新たなデータとして活用したいということです。対象となるのが、3行目からということになります。
②「J列~BD列に1つでも空欄のある行を削除」の意味です。
丁寧さがなかったですね、それと間違っていました。まず、間違いは3行ではなく、2行でした。1行目は表題を入れています、2行目は列ごとに列の内容、「記号」とか「種類」とか「氏名」等の名称を入れている行ということです。それ以外のデータのつにいて、空欄のある行とない行があるので、それを整理してまとめたいし、それを元にして新たなデータとして活用したいということです。対象となるのが、3行目からということになります。
私の説明が悪るかったかもしれません。J列~BD列に各行に1つでもデータがあれば、その行は全て残しますが、J列~BD列の各行にデータがなければその行はA列~BD列の全部を削除するということです。