Excel VBA質問箱 IV

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

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


31313 / 76738 ←次へ | 前へ→

【50677】見た目の空白セルを完全にクリアしたい
質問    - 07/8/8(水) 23:40 -

引用なし
パスワード
   過去、何回かお世話になっています
マクロ限定の質問ではないのですが宜しくお願いします。

HPで調べた結果をEXCELにコピペして資料として参考にしています
(主に歴史関係です)
その後に、使いやすいようにマクロを組んで操作性を上げているのですが
見た目は空白セルで、実体は何かが入っているため(白文字ではない)
セル側面のWクリックによる次ぎのデーター位置への移動や
End(Xlup)などの操作の阻害となり、解決策で行き詰ってしまいました。

【これまでの検討結果】
殆んどはスペースが入っていることが分ったので
それに関しては下記で解決で来ました。

Sub 空白削除()
Dim r As Range

For Each r In Selection
  If r.Value = " " Or r.Value = " " Then
  r.Clear
End If
Next
End Sub

それでも解決しないものがあったので改善策として下記処理をしました。
Sub 空白除去2()
Dim r As Range

For Each r In Selection
  r = Trim(r)
Next
End Sub

これで少しは解決する場合が増えたのですが、上記の方法でも
=ISBLANK(セル番地)・・・・でFalseを返す
場合があり、完全解決に至っていません。
UsedRangeで異常な範囲が設定される場合があるのと、似ているのかなとも思っていますがよく分りません。
見た目が空白のセルを、実質的にも空白にする方法があったら教えて頂きたく
質問させていただきました。
宜しくお願いします。

0 hits

【50677】見た目の空白セルを完全にクリアしたい 07/8/8(水) 23:40 質問
【50679】Re:見た目の空白セルを完全にクリアしたい Misa 07/8/9(木) 8:04 発言
【50682】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 11:29 発言
【50681】Re:見た目の空白セルを完全にクリアしたい Jaka 07/8/9(木) 9:52 発言
【50683】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 12:50 発言
【50684】Re:見た目の空白セルを完全にクリアしたい Jaka 07/8/9(木) 13:50 発言
【50686】ひとりごと Jaka 07/8/9(木) 14:32 発言
【50688】Re:ひとりごと 07/8/9(木) 15:54 お礼
【50685】Re:見た目の空白セルを完全にクリアしたい Ned 07/8/9(木) 14:01 発言
【50687】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 15:44 お礼

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