Excel VBA質問箱 IV

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

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


64049 / 76732 ←次へ | 前へ→

【17266】Re:空白列の削除
発言  ichinose  - 04/8/26(木) 7:59 -

引用なし
パスワード
   ▼KAME さん、皆さん、おはようございます。

>いつも大変お世話になっています。
>
>あるTxtファイルを読み込んで
>シート上に以下のような文字が表示されます。
>
>  A B C D E D F G
>1   あ い   木     AB
>2   う え   空     DS
>3   お か   火     RE
>4   き く   水     GF
>5   け こ   月     UY
>6   さ し   金     IO
>
>空白列(A列、C列、D列、F列)を消して
>以下のようにしたいです。
>
>  A B C D E D F G
>1 あ い 木 AB
>2 う え 空 DS
>3 お か 火 RE
>4 き く 水 GF
>5 け こ 月 UY
>6 さ し 金 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

2 hits

【17252】空白列の削除 KAME 04/8/25(水) 21:18 質問
【17254】Re:空白列の削除 IROC 04/8/25(水) 21:55 回答
【17256】Re:空白列の削除 ちゃっぴ 04/8/25(水) 22:07 回答
【17266】Re:空白列の削除 ichinose 04/8/26(木) 7:59 発言
【17272】Re:空白列の削除 KAME 04/8/26(木) 13:12 お礼

64049 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free