Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31299 / 76732

←次へ　｜　前へ→


	【50685】Re:見た目の空白セルを完全にクリアしたい

Ned - 07/8/9(木) 14:01 -


	引用なし

	パスワード

▼岳さん：こんにちは。 >ＨＰで調べた結果をEXCELにコピペしてという事なので、 tp://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200611/06110092.txt 参考に、 Sub sample1() 　　Dim r As Range 　　　　Set r = Cells.Find(What:=ChrW(160), _ 　　　　　　　　　　　 After:=ActiveCell, _ 　　　　　　　　　　　 LookIn:=xlValues, _ 　　　　　　　　　　　 LookAt:=xlPart, _ 　　　　　　　　　　　 MatchCase:=False) 　　If r Is Nothing Then 　　　　MsgBox "no data" 　　Else 　　　　r.Select 　　　　Set r = Nothing 　　End If End Sub これで、見た目空白なセルがHitしませんか？もしくはセルがわかっているなら Sub sample2() 　　MsgBox AscW(Selection.Value) End Sub これでどうなります？結果が出るようなら、その文字ChrW(？)をReplaceすれば良いと思います。