題名通り、奇数行を一括に削除する方法をご存じの方はご教授下さい。
○○┌────┬────┬─────┬──
1行 │(空白)│文字列 │(空白) │
2行 │ 文字列 │文字列 │ 数式 │
○○└────┴────┴─────┴──
3行 │(空白)│文字列 │(空白) │
4行 │ 文字列 │文字列 │ 数式 │
○○└────┴────┴─────┴──
この形式が数段、数シートに渡ってあります。
○○┌────┬────┬─────┬──
1行 │ 文字列 │文字列 │ 数式 │
○○└────┴────┴─────┴──
2行 │ 文字列 │文字列 │ 数式 │
○○└────┴────┴─────┴──
上記のように2行を1行にしたいのですが、一括でできるのでしょうか。
よろしくお願いします。
No.4
- 回答日時:
自信はありませんが、複数シートを一度にというのであればVBAマクロを使うと良いと思います。
ツール→マクロ→Visual Basic Editor から
挿入→標準モジュール を開いて
そこに次の---の間にある マクロを貼り付けてください
ただしこれは A列が1行おきに空白だということを前提にしています。
もとのデータが壊れると大変ですので一度保存してから上の作業をしてください。
------------------------
Sub 不用行削除()
Dim i As Integer
Dim R As Long
Dim LastR As Long
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Select
LastR = Range("A" & Rows.Count).End(xlUp).Row
For R = LastR - 1 To 1 Step -2
If Range("A" & R) = "" Then
Range("A" & R).EntireRow.Delete
End If
Next R
Next i
End Sub
-------------------
説明が下手ですが
i は シート数をカウントするための変数
R は 削除する行を決めるため
LastR は データのある最後の行を求めています。
いくつのシートがあるかまた何行までデータが入っているかを調べて、各々のシートごとに 最後の行の1つ上のA列は空白のはずなので2行おきに削除するようにしています。これを使えば奇数行にデータが入っていて遇数行が不用でもOKだと思います。
No.3
- 回答日時:
関数で「行削除」列削除はできません。
関数は値を計算するが、行や列を削除したり、幅や色や書式に関することを左右できません。だから、別シートや別セルの区画に「抜き出す」と考えればよいのです。
Sheet2にあるデータの偶数行を抜き出すには
Sheet3のA1に
=INDIRECT("sheet2!a"&ROW(A1)*2)
と入れて式を縦方向に複写すればよい。
Sheet4の分ももやりたいなら、Sheet2のデータ行の半分で式の複写をやめ、Sheet4用の式を入れて、そこから下に式を複写すればよい。
=INDIRECT("sheet4!a"&(ROW(A13)-12)*2)
のようになります。
Sheet2の半分が12行(全体で24行)で終わる場合の例です。
ありがとうございます。
早速試したのですが、2列目、3列目、・・・・がうまくできませんでした。それと、数式の値だけが表示されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 08:20
- Excel(エクセル) エクセルで文字列と数字が混在する列に書式設定したい。 3 2022/12/19 09:11
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- その他(コンピューター・テクノロジー) googleスプレッドシートでカッコ内の文字数をカウントしたい 1 2023/01/17 15:52
- Excel(エクセル) セルの値 11 2022/06/29 11:00
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルマクロで偶数行(又は奇数行)にあるセルを選択したい
Excel(エクセル)
-
excelで奇数の行のみ削除したい
Excel(エクセル)
-
エクセルVBA 偶数のセルを奇数のセルに移動させたい!
Excel(エクセル)
-
-
4
Excelで一行おきに削除したいのですが・・・。
Excel(エクセル)
-
5
エクセル1行おきのセルを隣の列の一つ上に移動したい
Excel(エクセル)
-
6
excelで1行ごとに一気に削除する方法はありませんか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
EXCELで2つのシートから一致し...
-
条件に一致したデータをカウント
-
Excelで日付を入れると自動的に...
-
エクセルで前年同日・前月同日...
-
エクセルでページ毎の計をつけ...
-
Excel 表の必要箇所だけを抜き...
-
excelの列がいっぱいになり列を...
-
EXCEL2007で2つのシートのどっ...
-
エクセルVBAで複数列データを1...
-
エクセルの並べ変え
-
超初心者がマクロ集計をするこ...
-
エクセルによる表作りについて
-
Excelのhperlink関数で作ったモ...
-
Excelでの在庫管理
-
エクセルシートの選択範囲をコ...
-
VBAで列に計算式を入れたい
-
ピボットテーブル作成後、重複...
-
エクセルVBAで検索して内容をコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
pdfの表をexcelにはりつけて計...
-
EXCELの列の幅
-
EXCELで2つのシートから一致し...
-
Excel 表の必要箇所だけを抜き...
-
EXCEL2007で2つのシートのどっ...
-
エクセルでページ毎の計をつけ...
-
エクセルで前年同日・前月同日...
-
エクセルで電話番号にハイフン...
-
エクセルVBAで複数列データを1...
-
excelの列がいっぱいになり列を...
-
EXCELで不良率を出そうと思って...
-
Excelで奇数行を削除
-
ExcelのIF関数について
-
ピボットテーブル作成後、重複...
-
VBAで他のシートの特定の列を検...
-
エクセルで縦線のいっぱい入っ...
-
ドロップダウンリスト
-
マクロ VBA 他のブックのデータ...
おすすめ情報