| |
▼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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
