質問: いつもお世話になっております。 画像のように、D列に文字列が入っているとして 見えないスペースが先頭に入っています。
回答: Sub a() 'D6のところに青い点が見えます。スペース以外に不要な 'ものが入っているのではないでしょうか? 'Clean関数で掃除してあげたらうまくいきませんか? '----以下マイクロソフトのサポートページより---- '印刷できない文字を文字列からすべて削除します。 'Clean 関数は、他のアプリケーションからインポートした文字列に、 '現在使用しているオペレーティング システムでは印刷できない可能性 'のある文字が含まれている場合に使用します。 たとえば、CLEAN 関数を '使用して、データ ファイルの先頭と末尾に含まれている、印刷できない 'コンピューター コードを削除できます。 Dim c As Range For Each c In Columns("D").SpecialCells(xlCellTypeConstants) c.Value = Replace(Replace(c, " ", ""), " ", "") '半角全角削除 c.Value = WorksheetFunction.Clean(c.Value) ' Next c End Sub