|
過去、何回かお世話になっています
マクロ限定の質問ではないのですが宜しくお願いします。
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で異常な範囲が設定される場合があるのと、似ているのかなとも思っていますがよく分りません。
見た目が空白のセルを、実質的にも空白にする方法があったら教えて頂きたく
質問させていただきました。
宜しくお願いします。
|
|