|
▼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
|
|