Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64049 / 76732

←次へ　｜　前へ→


	【17266】Re:空白列の削除

ichinose - 04/8/26(木) 7:59 -


	引用なし

	パスワード

▼KAME さん、皆さん、おはようございます。

>いつも大変お世話になっています。
>
>あるTxtファイルを読み込んで
>シート上に以下のような文字が表示されます。
>
>　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｄ　Ｆ　Ｇ
>１　　　あ　い　　　木　　　　　AB
>２　　　う　え　　　空　　　　　DS
>３　　　お　か　　　火　　　　　RE
>４　　　き　く　　　水　　　　　GF
>５　　　け　こ　　　月　　　　　UY
>６　　　さ　し　　　金　　　　　IO
>
>空白列（Ａ列、Ｃ列、Ｄ列、Ｆ列）を消して
>以下のようにしたいです。
>
>　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｄ　Ｆ　Ｇ
>１　あ　い　木　AB
>２　う　え　空　DS
>３　お　か　火　RE
>４　き　く　水　GF
>５　け　こ　月　UY
>６　さ　し　金　IO

データを読み込んだシートをアクティブにした状態で以下のコードを
試してみて下さい。

'=================================================
Sub test()
　 On Error Resume Next
　 Dim rng As Range
　 Dim r_ar As Range
　 Set rng = Cells.SpecialCells(xlCellTypeBlanks)
　 If Err.Number = 0 Then
　　　For Each r_ar In rng.Areas
　　　　r_ar.Delete
　　　　Next
　　　End If
　 On Error GoTo 0
End Sub

1 hits

▼

【17252】空白列の削除 KAME 04/8/25(水) 21:18