[[20060413115132]]　『データが入力されてない列の削除マクロ』（みかんず）　ページの最後に飛ぶ

『データが入力されてない列の削除マクロ』（みかんず）

データが入力されてない列を削除するマクロはありませんか？

 マクロではありませんが。
 データのある行の先頭をクリックして、行全体を選択。
 編集＞ジャンプ　でセル選択をクリック。
 空白セルにチェックをいれてOK。
 そのまま選択されている空白セルの上で右クリック＞削除。

 上記をマクロの記録で記録する、でもいいかもしれませんね。　　　　　(かなれっと)

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

すみません、消したいのは列なんです。上記の方法だと、すべての空白のセルが消えてしまうので、何も入力されていない列を消す方法をお願いします。ぺこ（みかんず）

 う～ん？ 削除としたときに、左方向にシフト、とか列全体てメニュー出ませんでしたか？
 列全体を選択してＯＫすれば、列削除できるはずなんですが・・・ (かなれっと)

すみません、言葉が足りなかったですね。
データは下のようなデータなんです。

　　Ａ　　　　Ｂ

１　aaa

２

３ bbb

のように、データが入ってるＡ列にも空白セルがあるんです。
それで、Ａ列の空白はひつようなんです。どうにかできませんか？（みかんず）

 1列のデータでは、どの列のデータを削除したいのか、がわからないです＾＾；
   A   B   C   D
1 aaa     ddd
2 
3 bbb          fff
4 
5 ccc     eee
 のような感じで、列にデータのないＢ列だけ全部削除したいっていうこと？

 私はマクロでは考えられそうにないので、別案を提案。マクロは他の方の登場を
お待ちください。
 (かなれっと)

 本日は休みなので、、、
ヒントだけ～♪
[[20060412114230]]『空欄のあるセルの行を削除したい』(みかんず)
こちらの、行を列に変更してヘルプを見ながら少しだけいじってあげればできるかな？
(キリキ)（〃⌒o⌒)b

 衝突～
 私の提案は間違ってたので、練り直します～　部分削除しました。(かなれっと)
 ☆キリキさん提示のスレも見てみます～

すみません、マクロのアルファベット（言語？）が何を意味しているのかさっぱりなので、応用できそうもありません（泣）。もしよければ言語？の意味とか教えてくれるサイトなど教えていただけますか？（みかんず）

 訂正提案を～。。。(みかんず)さんのご要望に沿うものではないので、自己満足ちっく
ですが、二言はないってことで一つお許しを…＾＾；

 作業行を1行作って、=IF(COUNTA(A2:A5),"",1) として右にコピー。
 作業行を選択してコピー、そのまま形式を選択して貼り付け、で値にチェックしてＯＫ。
 そのまま、編集＞ジャンプ　でセル選択をクリック。
 定数にチェックを入れ、数値以外のチェックをはずして、ＯＫ。
 選択されたセルを右クリックして、削除。列全体にチェックを入れて、ＯＫ。
 (かなれっと)

いえいえ、ありがとうございます。
（かなれっと）さんの方法だと、データが入力されていない列は１が表示されて、１が表示されている列を削除する、というものでしょうか？
ありがとうございます。やってみます（みかんず）

 お散歩、終了～♪
ただいま～
マクロだとこんな感じで如何？
Sub TEST()
Dim MyC As Long,i As Long
MyC = Cells(1,Columns.Count).End(xlToLeft).Column
For i = MyC To 1 Step -1
  If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
    Columns(i).Delete Shift:=xlLeft
  End If
Next i
End Sub
※例のごとく、携帯からなので記入ミスはゴメンチャイ。。。
(キリキ)（〃⌒o⌒)b

コメント返信：

[ 一覧(最新更新順) ]

[[20060413115132]] 『データが入力されてない列の削除マクロ』（みかんず） ページの最後に飛ぶ

[[20060413115132]]　『データが入力されてない列の削除マクロ』（みかんず）　ページの最後に飛ぶ