• ベストアンサー

列が空白なら削除したい

「もし○列が空白なら削除、空白でない(ひとつでもセルに文字が入力されている)ならそのまま」ということを×列まで順に行いたいのですがどうすればいいのでしょうか? よろしくお願いします。

noname#150256
noname#150256

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

何も書いてませんが、これはエクセルVBAの質問なのでしょうか? そうだとしたら以下をお試しください。 1列(A列)から10列目(G列)までの例です。 Sub test01() Dim c As Integer With ActiveSheet 'アクティブなシートに対し For c = 10 To 1 Step -1 '10~1へ逆順に If Application.CountA(.Columns(c)) = 0 Then 'もし空白なら .Columns(c).Delete 'その列を削除 End If Next c End With End Sub

noname#150256
質問者

お礼

ご回答ありがとうございます。

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

手作業でやるしかないです。 関数では削除は出来ないよ。関数はセルの値しか設定できない。 VBAで出来るが、経験があるのか、1言も書いてないし。 ーー こういうのはどうでしょう 結果手作業だが、時間的にすぐ終るよ。 B列が空白かどうか、問題にする列として、空き列に =IF(B1="",1,"") と入れて最終行まで式を複写 全体を範囲指定し、その空き列でソート 固まった1の行を列指定して、編集ー削除

noname#150256
質問者

お礼

ご回答ありがとうございます。

関連するQ&A

  • エクセルで1行目が空白の場合、列を削除したい

    こんにちは!質問をお願いします。 エクセルで表を作成していますが、1行目が空白のセルがある場合に、その列を削除したいのですが、VBAでどのようなコードにすればよいでしょうか? ※上記のD列を削除し左詰めにしたい。(空白セルはAからBBまでの間で、特定の位置以降で発生します。) ※ちなみに1行目には、=N というようにほかのセルを参照し、文字の入力があれば表示するようにしています。 初心者につき、うまく説明できていないかもしれませんが、よろしくお願いいたします。

  • 文字列中の空白削除について

    PHP4で、文字列の前後に空白が場合はtrimを使って削除可能ですが、文字列の中に含まれていたとき、その空白を削除するいい方法はあるでしょうか? よろしくお願いします。

    • ベストアンサー
    • PHP
  • エクセル2002で、ある列が空白なら、その空白のある行は削除する方法

    エクセル2002で、 ある列に空白のセルがあった場合、その行を削除する方法を教えてください。 例えば、B列を選択して、 編集、ジャンプ、セル選択、空白セル、OKとたどって、 セルB11、セルB22、セルB33が空白セルなら、 11,22,33の行を削除する方法を教えてください。

  • 空白セルの削除

    A列に得意先、B列に金額が入力されています B列の8行目と13行目が空白です この空白セルを対象にその行を削除する関数はありますか 要するに金額欄の空白セルを読み取りその行全体を削除する関数が知りたいのです よろしくご指導ください

  • 文字列の結合、改行、空白削除

    複数のセルを参照して文字列を結合し、2つずつでCHAR(10)で改行し、未入力のセルの空白を削除する方法はありませんか? =SUBSTITUTE(TRIM(A1&" "&B1&CHAR(10)&A2&" "&B2&CHAR(10)&A3&" "&B3&CHAR(10) &A4&" "&B4&CHAR(10)&A5&" "&B5),"","") 現在、上記のような数式を入れて一つのセルに表示させています。 しかし、これだと後半のセルが未入力の場合、空白で表示されるため、表示させるセルの中で結合した文字列が上の方に行ってしまいます。 表示させるセルは縦横共に中央揃えにしたいのですが、何かいい方法はありませんか? まだまだ初心者ですが、いろいろ調べた結果、とりあえず上記の式にたどり着きました。 マクロではなく関数でなんとかなればと考えております。 分かりにくい文章になってしまったかもしれませんが、よろしくお願いします。

  • A列の空白のセルを含んだ最終列を削除するには・・・

    マクロを使用してA列の空白のセルを含んだ最終列およびその左隣の列を削除するにはどうしたらよいのでしょうか? よろしくお願いします。

  • 空白セルの削除と重複データの加算のマクロ

    シート1の文字列のデータの0又は空白のセルを取り除いて、並んでいる文字列の左と真ん 中の数が重複しているデーターは左端の数を加算して別のシート2のC10からC100のセルに抽出できるマクロを教えて下さい。データーの0は関数で空白にしたいと思っています。 データの並び方はこのままで重複するデーターの加算と空白のセルの削除を一回のマクロで実行したいのです。  E列               空白を削除    0-4-1              0-4-1         2-3-2              2-3-2         2-2-3              2-2-(3) 0                 2-2-(1) 2-2-1              4-1-9 4-1-9              2-1-7 2-1-7              2-2-3 0                 2-3-(5)                (数式がある空白セル)   2-3-(1)            2-2-3              2-3-(4) 0                 0-4-1 2-3-5 2-3-1 2-3-4 0-4-1 シート2のB列10~100に抽出 0-4-1 2-3-2 2-2-4 4-1-9 2-1-7 2-2-3 2-3-10 0-4-1 このように抽出したいのです。

  • エクセル 並べ替え 数字の文字列→漢字の文字列→空白セル の順にしたいです。

    いつも教えていただきありがとうございます。 【状況】 同じ列に以下のような文字列が並んでいます。 未回答 空白セル 20090208 20090210 未定 空白セル 20090101 【実現したいこと】 この時、 数字昇順(実際には日付) ↓ 文字列(未定、未回答) ↓ 空白セル の順に並べ替えをしたいです。 状況補足 ・全ての文字列はVLOOKUP関数の結果として表示されています。 ・この操作をマクロに組み込むことを考えています。 ・空白セルは目立たなければ他の記号などに置き換えても構いません。 上記内容可能でしょうか? お教えいただけましたら幸いです。 何卒よろしくお願いいたします。

  • セル内文字を切り取りその列の空白セルに貼付け

    B列3行目から添付のようにセル内にカンマを含む文字がありカンマで区切った文字ごとに切り取り矢印右のように同B列の次の空白行に順に貼り付けたく、その際カンマは削除したいのですが行数が多くてできればVBAコードがお分かりなる方宜しくお願いします。 環境はwindows7 office2013です。

  • エクセルで空白行を削除する 2列とも空白の場合のみ

    エクセルで空白行を削除する処理についての質問です。 1つの列のみ空白の場合、削除するというマクロは分かるのですが、 1つの列が空白、また別の列も空白の場合、削除するという処理のやり方を教えていただきたいです。 たとえばC列が空白で、P列も空白の場合のみ、削除するなどです。 どちらか、一方のみが空白の場合は、削除しません。 お手数ですがよろしくお願いいたします。

専門家に質問してみよう