同じ文字列なのにfalseになってしまいます。

Question

仕事でＶＢＡをやっているのですが、壁にぶち当たってしまい、詳しいかたがいらっしゃいましたらアドバイスいただけたらと思い、初めてこちらを利用させていただきました。

とあるテキストファイルをエクセルで開き、Ａ１セルにH1という文字列が入っていたとします。
A2セルには同じくH1とキーボードで入力します。
これをifでA1セルとA2セルが同じだったらというマクロを組んでもfalseになってしまいます。

ちなみに、どちらとも半角で、セルの書式設定は標準です。

一つ引っかかるのがLENB関数で調べたところA1セルは６バイトなのに対し、A2セルは４バイトだったことと
A1セルをコピーしてVBAのページに張り付けると"   H1"となってしまうところがなにか原因なのかなと思いました。

なかなかうまく説明もできていないと思いますが、お助けいただけるかたがおりましたらよろしくお願いいたします。

WindFaller · Accepted Answer

No.8 の回答者です。

>trimやreplaceなどでスペースを消すことができなかったので、もしそのほかの方法で消す方法などがありましたら教えていただきたいです。

どうやら、文字コードで解明するという案は採用されないようですね。
誰かがヒットするかもしれませんが、Replace や Trim でやっても原因になる部分を公開しなければ無理です。思い当たるものを全部羅列して除去するなんていうのは、面倒だからです。

それを、逆に英数だけ抜き出して、分離させるというのは、できなくはないけれども、アイデアと現実では違いがあります。

何が原因なのか、その文字コードを教えていただければ済む話なのです。
ただし、私は、CODE関数ではなく、UNICODE関数の方がよいと思います。
CODE関数では出てこないこともあります。出てきても、文字コードが「63」と出てくることがあります。これでは何か分かりません。UNICODE関数がなければ、NO.8 のコードを使ってくれればよいてす。nbsp に似たもの、emsp, ensp などがあります。
この他にも、まだいろいろとあるように思います。

B列の文字対象。右にドラッグ  No.4 さんの数式を借用
=IFERROR(UNICODE(MID($B1,COLUMN(A1),1)),"")

エスケープシーケンスが原因の場合は、Clean関数で除去が可能です。

fujillin · Answer

No4です

＞=CODE(MID($A$1,COLUMN(A1),1))のコードですが、
＞9 72 49という結果が出ました。
そのまま順に、TAB、H、1 に相当します。
TABはタブキーのコードですので、目視できる文字形状にはなりません。

＞よく出てきた9というのが原因を表す数字なのかなと思います。
それっぽいですが、確実かどうかは不明です。
はっきりとはしませんが、勝手に推測すると、もとの「テキストデータ」というのが、実は、「タブ区切りのデータ」なのではないのでしょうか？
それがはっきりしていれば、読込む際にタブ区切りで読込めば済むことになりますし、その方が正しいデータの扱い方とも言えるでしょう。
（後から、TABコードだけ取り除いても結果は同じにはなるでしょうけれど…）

極端に言えば、CSVデータ（カンマ区切りのデータ）をそのまま読込んでしまい、（カンマが残っているために）、「比較結果がfalseになってしまう」と言っているのと同様の可能性が高そうです。
（カンマの場合は目視できるので、すぐに気が付くでしょうけれど…）

＞とあるテキストファイルをエクセルで開き～
どうやって読込んでいるのか不明ですが、通常の「開く」コマンドで開いているのであれば、読込む際に「タブ区切りのデータ」として設定できるはずと思います。
そのうえで読込めば自動的に「タブ区切り」と見做して処理してくれるので、読込んだデータにタブや改行が残ることはないはずです。
VBAから読込んでいる場合もほぼ同様にできるはずですが、一旦、テキストとして読込んで処理したりする場合には、改行で行を分け、タブでセル（＝列）を分けるようにすれば同様の結果が得られるはずです。

taunamlz · Answer

このおじさんの話を解説すると、以下の作業をお願いしています。
・F1（セルはどこでも良い）に「=ASC(A1)=ASC(A2)」をコピペしてください。
・F2（セルはどこでも良い）に「=A1=A2」をコピペしてください。

結果としては、おそらくどちらのセルにも「FALSE」が表示されます。

また、私からのお願いですが、どうせならF3（セルはどこでも良い）に「=CODE(A2)」をコピペしてもらえませんか？
これは先頭文字の文字コードを返却する関数です。
H1の手前にある見えない文字の文字コードを調べることができます。
文字コードがわかれば、文字コードを指定して削除する、無視する等の手段を取ることもできます。

mike_g · Answer

貴方の質問文中の
》 Ａ１セルにH1という文字列が入っていたとします。
》 A2セルには同じくH1とキーボードで入力します
に対して、私が[No.6]で“初心者にも至極単純な確認”をお願いしたことに対し、お約束の「試してご報告させていただければと思います」の結果はどうでしたか？
「かなか攻略できず」は他の方への言い訳として適用できても、私には的外しかと。

taunamlz · Answer

No.2です。

スペースを削除しても消えないということですので、その空欄にはおそらくAsciiコードの0～1Fのどれかが入っているかと思います。
https://www.k-cube.co.jp/wakaba/server/ascii_code.html

で、毎回同じ文字が入るのであれば固定で対応できるのですが、何が入るか原因もわからないようですので、英数字の0-9a-zA-Z以外を削除してはいかがでしょうか。
これはパターンマッチと置き換えを組み合わせることで実施できます

WindFaller · Answer

>一つ引っかかるのがLENB関数で調べたところA1セルは６バイトなのに対し、
>A2セルは４バイトだったことと
どちらもこちらの想定とは違いますから、状況が分かりません。文字２つの半角なら2バイトになるはずです。
全角２文字なら、4バイトです。ネットから取り出したというなら、1個のnbsp 付きで、+1
全角スペースなら、+2バイトになるという計算です。(nbsp -ノーブレイク・スペース）
(ただし、これは、ワークシート上でないと、LenBのバイト数は正しくでません。VBAでは、一旦、UnicodeからJISに戻さないとバイト数はでません。代わりに、以下にあるコードならわかります）

マクロでどう組んでいるのか見えません。元の文字列がどういう状態なのか。まず、等幅フォント(MS ゴシック等）で、目で比較してみてからの話になりそうな気がします。

もし余裕があるなら、以下のようなコードで調べます。
むろん、バイナリエディタを用いていも同じす。

もし、既知のことでしたら、読み飛ばしてください。(時々、分かりきったことに説明などいらないと、立腹する人がいるようです。）以下のように、視覚化していただければ、どなたでも了解できると思います。
(今、ログを見ましたら、すでに、No.4さんの解答と重複するようですが、nbsp の異種が、紛れ込んだ時に違いがでますが、CODE関数の代わりに、UNICODE関数を使えば、同じになります。）

'//みえない文字の視覚化
Sub TestBinaryOut()
　Dim c As Range
　Dim b() As Byte
　Dim i As Long, j As Long, k As Long
　k = 1
　For Each c In Range("A1:A2")
　　b = c.Text
　　For i = 0 To UBound(b) Step 2
　　　'C列からの書き出し
　　　Cells(k, "C").Offset(, j).Value = "'" & Right("0" & Hex(b(i + 1)), 2) & Right("0" & Hex(b(i)), 2)
　　　j = j + 1
　　Next
　　j = 0
　　k = k + 1
　Next
End Sub
'//
上記のようなマクロで、バイナリで調べれば、どのように違っているか分かります。

出力例：A1:A2 
文字列　長さ　　右に文字コード一覧
H1　　　3　　　　0048　　0031　　00A0
Ｈ１　　6　　　　FF28　　FF11　　3000

語尾の00A0 というのは、一般的な　{nbsp} で、3000 は、全角スペースです。
0048で、00 |48 と上位桁と下位桁とを2分し、上位桁が、00、下位桁48で、上位桁00ですから、半角という見方をします。
よかったら試してみてください。

googoogoo2017 · Answer

A1の文字列を引用し、B1でも、どこでも好きな場所に
＝TRIM（A1）
で見えないスペースを削除し、それを同位置にコピー&ペースト（文字列）でそいつをA2に持って来ても駄目でしょうか？

mike_g · Answer

式 =ASC(A1)=ASC(A2)
と
式 =A1=A2
の結果を教えてください。

googoogoo2017 · Answer

テキスト貼り付けしたものに改行がいませんか？A2をA1にコピペして見てみて。

fujillin · Answer

こんにちは

＞ちなみに、どちらとも半角で、セルの書式設定は標準です。
それが確かであるならば、「H1」の文字数は2文字になるはずです。

＞一つ引っかかるのがLENB関数で調べたところA1セルは６バイトなのに対し、
＞A2セルは４バイトだったことと
この時点で、文字が「全角」であることなどが疑わしいですし、さらに前後に見えない文字コードが付帯していることも想像されます。（単なるスペースかも知れませんが）

例えば、A1セルに対象文字があるとして、B1セルに
　=CODE(MID($A$1,COLUMN(A1),1))
の式を入れて、右方向にフィルコピーすれば、A1セルの文字列の1文字づつの文字コードが表示されます。
これを見れば、実際にどのような文字から構成されているかを調べることができるので、はっきりするのではないかと思います。

同じ文字列なのにfalseになってしまいます。

No.8 の回答者です。

No4です

このおじさんの話を解説すると、以下の作業をお願いしています。

貴方の質問文中の

No.2です。

>一つ引っかかるのがLENB関数で調べたところA1セルは６バイトなのに対し、

A1の文字列を引用し、B1でも、どこでも好きな場所に

式 =ASC(A1)=ASC(A2)

テキスト貼り付けしたものに改行がいませんか？A2をA1にコピペして見てみて。

こんにちは

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング