題名通り、奇数行を一括に削除する方法をご存じの方はご教授下さい。
○○┌────┬────┬─────┬──
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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】CSV取込時、数字...
-
Word2016でExcelデータを差込し...
-
EXCELで2つのシートから一致し...
-
エクセルシートの選択範囲をコ...
-
エクセルでページ毎の計をつけ...
-
エクセルで2列以上のものを同時...
-
EXCELの列の幅
-
Excel 表の必要箇所だけを抜き...
-
EXCEL2007で2つのシートのどっ...
-
セル入力文字が、「右のセルに...
-
エクセル、ページをまたがった...
-
パワポの複数ページにまたがる...
-
Wordで、表のセルが変なところ...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
パソコンのワードでこの様な割...
-
wordで罫線が引けない・・・
-
ワード、上下中央揃えにしたい...
-
ワードの表の行が広がってしまう
-
ワードで勝手に点線ラインがでる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
EXCELで2つのシートから一致し...
-
Excel 表の必要箇所だけを抜き...
-
EXCELの列の幅
-
エクセルで前年同日・前月同日...
-
エクセルでページ毎の計をつけ...
-
EXCEL2007で2つのシートのどっ...
-
excelの列がいっぱいになり列を...
-
エクセルで電話番号にハイフン...
-
エクセルVBAで複数列データを1...
-
EXCELで不良率を出そうと思って...
-
エクセルの複数ワークシートの...
-
エクセルの余白を0にしても列...
-
エクセルで縦線のいっぱい入っ...
-
Excelで奇数行を削除
-
ExcelのIF関数について
-
Excelのhperlink関数で作ったモ...
-
エクセル:最新データ12件で...
-
ピボットテーブル作成後、重複...
おすすめ情報