例えば

1行目 ああああ
2行目
3行目 いいいい
4行目
5行目
6行目 うううう

のように、2行目と4行目と5行目のように空白になっている
行を一気に削除する関数か何か方法があれば教えてくださいませ!

A 回答 (2件)

手作業で良ければ、


1) 並べ替えで、2列目を優先にする。但し、並べ替えられてしまいます。
2) フィルターで、2列目を空白で選択して、その空白行をまとめて削除する。
ご参考まで。
    • good
    • 0
この回答へのお礼

ありがとうございました!大変参考になりました!

お礼日時:2017/05/14 16:42

データが入力されている列でソートすれば、入力されている行が上に来て、空白行はその下にくるので、(削除の必要があれば)それを削除(?)すればいい。

    • good
    • 0
この回答へのお礼

ありがとうございました!大変参考になりました!

お礼日時:2017/05/14 16:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Qエクセル2013マクロ、空白が行以上の場合、空白行を1行だけ残したい

エクセル2013のマクロを使っています。

複数行ある空白行が飛び飛びで含まれるシートですが、ちょっとまだらで困っています。

A1~L15は、ほとんどのセルでデータあり。

A16~L25は、ほとんどのセルでデータあり。
ここが中途半端なんですが、J26~L26にデータが入っています。

そして、A35~L45は、ほとんどのデータ有り。
J46~L46にデータ有り。

というパターンがしばらく続きます。

この、J~Lは、その上の表の合計が入っています。ちょっとだけ出っ張ってます。

A列にデータがあるものであれば、ネットの情報で対応できるのですが、
全てデータがあるJ,K,Lで同じことを試しても、うまく空白行の削除ができません。

https://oshiete.goo.ne.jp/qa/4006176.html

どういうマクロで対応が可能でしょうか。

手動でセル指定するものではなく、空白の行やセルにデータが入っているものでも、
行列が増えても減っても対応できる内容でお願いします。

大雑把な画像を付けたので、ご理解いただければ幸いです。

エクセル2013のマクロを使っています。

複数行ある空白行が飛び飛びで含まれるシートですが、ちょっとまだらで困っています。

A1~L15は、ほとんどのセルでデータあり。

A16~L25は、ほとんどのセルでデータあり。
ここが中途半端なんですが、J26~L26にデータが入っています。

そして、A35~L45は、ほとんどのデータ有り。
J46~L46にデータ有り。

というパターンがしばらく続きます。

この、J~Lは、その上の表の合計が入っています。ちょっとだけ出っ張ってます。

A列にデータがあるも...続きを読む

Aベストアンサー

リンク先の"A"を"J"に変えただけで良いのでは?
Sub test01()
 Dim x As Long, i As Long
 With ActiveSheet
 x = .Cells(Rows.Count, "J").End(xlUp).Row
 For i = x To 2 Step -1
   If .Cells(i, "J") = "" And .Cells(i - 1, "J") = "" Then
     .Cells(i, "J").EntireRow.Delete Shift:=xlUp
   End If
 Next i
 End With
End Sub

Q最終行が常に変わる為、 どのようにマクロを書けばよいかご教示ください。 5行目が見出しです。 6行目

最終行が常に変わる為、
どのようにマクロを書けばよいかご教示ください。

5行目が見出しです。
6行目からデータが入力されています。
F列の最終行の一つ下に
=E列最終セル÷D列最終セル としたいです。
D列とE列最終セルには各列の合計値が入力されています。
「F列の最終行の一つ下」は
D列、E列の最終セルと同じ行になります。

よろしくお願いします。

Aベストアンサー

.Valueを忘れた


D列最終=ActiveSheet.Range("D65536").End(xlUp).Row
E列最終=ActiveSheet.Range("E65536").End(xlUp).Row
F列最終=ActiveSheet.Range("F65536").End(xlUp).Row

ActiveSheet.Range("F" & F列最終+1).Value=
ActiveSheet.Range("D" & D列最終).Value/ActiveSheet.Range("E" & E列最終).Value

Qセル内での2行目(1文字目)空白の入れ方

初歩的な質問なのですが、エクセルで一つのセル内で改行(Alt+Enter)し、2行目の1文字目を空白にしたいのですがどうすればいいのでしょうか?
こういう風に打ちたいのですが…

ああああああ
 あああああ
ああああああ

使用しているのはエクセル2002で単にスペースを押しても空白が入りません。。

Aベストアンサー

 不思議ですね。私も長年エクセルを使っていますが、そのようなことは1度もありませんでした。とりあえず応急措置で、カット&ペーストで空白を挿入したらどうでしょうか。

Qエクセル2016で、空白の行が何行目かを確認する方法

上記ソフトで、例えば、1000行セルがあったとします。この中に、文字列が入っており、
458行目と602行目、705行目が空白だったとします。このことを確認する方法があれば教えてください。

Aベストアンサー

A1~A1000までデータがあり、そのうちのいくつかが空白だとして回答します。

B1セルに『=ISBLANK(A1)』と入力
C1セルに『=IF(B1=TRUE,ROW(B1),"")』と入力
D1セルに『=IF(B2="",","&TEXT(C1,0),IF(B1=FALSE,D2,","&TEXT(CONCATENATE(C1,D2),0)))』と入力
B1~D1セルを1000行目(データ範囲)までコピー

D1セルに書いてある値が空白になっている行の番号です。
B、C列は作業列です。

QエクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、 例えば、1〜20行目までに"

エクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、
例えば、1〜20行目までに"高校"という文字がある場合、その行を全て選択したいです。写真のコードではうまくいきません。。お願いいたします。(VBAスーパー初心者です。)

Aベストアンサー

3つの方法を考えてみました。
③は、Findメソッドを使ったものですが、省略スタイルはあまりよくないといいます。個人的には、②が一番、楽に取り扱えるように思います。

''①.
Sub FindWordinLine_01()
Dim r As Range
'1行目にタイトル行の代わりに、検索文字[高校]を置く
 Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = True
 Set r = Range("I:I").SpecialCells(xlCellTypeVisible) Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = False
 r.Select
End Sub

''②.
Sub FindWordinLine_02()
'1行目にタイトル行が必要です。
 Range("K2").FormulaLocal = "=COUNTIF(I2,""*高校*"")>0"
 Range("I:I").AdvancedFilter 1, Range("K1:K2")
End Sub

''③.
Sub FindWordinLine_03()
'出だしに決まりはありません。
 Dim first As String
 Dim rng As Range
 Dim uniRng As Range
 Dim c As Range
 Dim buf As String
 Range("I1").Select
 Set rng = Range("I1", Cells(Rows.Count, 9).End(xlUp))
 With rng
  Set c = .Find("*高校*")
  If Not c Is Nothing Then
   buf = c.Address
   Set uniRng = c
   Do
    If first = "" Then first = c.Address
    Set uniRng = Union(c, uniRng)
    Set c = .FindNext(c)
   Loop While Not c Is Nothing And first <> c.Address
  End If
 End With
 uniRng.Select
End Sub

3つの方法を考えてみました。
③は、Findメソッドを使ったものですが、省略スタイルはあまりよくないといいます。個人的には、②が一番、楽に取り扱えるように思います。

''①.
Sub FindWordinLine_01()
Dim r As Range
'1行目にタイトル行の代わりに、検索文字[高校]を置く
 Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = True
 Set r = Range("I:I").SpecialCells(xlCellTypeVisible) Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = False
 r....続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報