if 文などで「""」を返した場合の空白文字列をブランクにしたい

Question

if 文などで「""」を返した場合は、空の文字列を返しているのであって、ブランクが返ってきているわけではありません。

コピーして貼り付け（値のみ）をしても、空の文字列は空の文字列、ブランクはブランクです。

コピーして貼り付け後（値のみ）の空の文字列をブランクにするには、delete が一番簡単です。

上記の様に記載されているのを見つけました。ここでご質問が御座います

任意の範囲（今回はB1:D50）で空の文字列をブランクに変えるＶＢＡに困っております。

どなたか、教えていただけないでしょうか？

よろしくお願い致します。

使用環境：Windows7x64 Office 2007

xls88 · Accepted Answer

下記を試してみてください。

With Range("B1:D50")
        .Value = .Value
    End With

Wendy02 · Answer

>シートＡの内容コピーして、シートＢに貼り付け際に（値のみ）
>シートＢに空白の文字列として貼り付けされるため、

いわゆる「値貼り付け」で、="" というものをコピーし、別の所に貼り付けると、痕跡としては残るけれども、何も入っていないかもしれません。

もしかしたら、マクロは不要かもしれませんが、試しに使ってみてください。（標準モジュールが最適）
以下はループしていませんから、完全に削除されたか確かめるためには、同じプロシージャで、二度マクロを行う必要があります。

Sub DeleteUnVisibleString()
　Dim rng As Range
　Dim c As Variant
　Dim iFlg As Integer
　On Error Resume Next
　Set rng = Range("B1:D50").SpecialCells(xlCellTypeFormulas, xlTextValues)
　iFlg = 0
　If rng Is Nothing Then
　　Set rng = Range("B1:D50").SpecialCells(xlCellTypeConstants, xlTextValues)
　　iFlg = 1
　End If
　On Error GoTo 0
　Application.ScreenUpdating = False
　If Not rng Is Nothing Then
　　For Each c In rng
　　　If Trim(c.Value) = "" Then
　　　　c.ClearContents
　　　End If
　　Next
　　MsgBox rng.Cells.Count & "個の" & IIf(iFlg, "空白値の", "数式の空白値の") & "セルを削除しました。", vbInformation
　Else
　　MsgBox "空白値の文字列は見つかりません。", vbExclamation
　End If
　Application.ScreenUpdating = True
End Sub

foolboy · Answer

試しに書いてみました。
これで如何でしょうか。

Sub test()
Dim a As Integer
Dim b As Integer

For b = 2 To 4
For a = 1 To 50

If Cells(a, b).Value = "" Then
     Cells(a, b).ClearContents
     
     End If
  
  Next a
Next b

End Sub

D-Matsu · Answer

Range.ClearContentsあたりでしょうか。
対象の各セルに対して""と同値ならClearContents、の繰り返しで良さそうに思えますが。

foolboy · Answer

確かに、空白文字列で返されるのはもどかしいときがありますね。

すでに任意の値が入力されているのかどうかが分かりませんが、入力されている、という前提でお話しします。
多少発想を変えて、以下のようにしてみてはいかがでしょうか。

例)
If Range("B1").value="" then
  Range("B1").clear
※clearではなくdeleteかもしれません。

メソッド等に間違いがあるかも知れませんが、簡単に言葉にすると「空白文字列をデリートする」というだけです。

KURUMITO · Answer

関数のＩＦ関数を使ってあるセルを空白("")にしてもそのセルには関数が入力されている限り空白にすることはできませんね。ＶＢＡを使って空白にしようとしてもそのセルに関数が入力されている限りは無理で、その関数式を消去しない限り空白にすることはできないですね。
なぜＶＢＡまで使って空白にすることが必要なのでしょう。
例えばＣＯＵＮＴＡ関数では関数が入って空白のセルまで数えられてしまいますね。関数を使って文字列の入ったセルの数を求めるのにＣＯＵＮＴＡ関数ではなく次のような式にすることで関数で空白となったセルの数を除いた数を求めることができます。参考までに。

=COUNTIF(A1:A100,"?*")

layy · Answer

何も入っていないＡ１セルで
=LEN(A1)は「０」

空白が入っているＡ２セルで
=LEN(A2)は「１」

やりたいことはこういう判定でしょうか？。

if 文などで「""」を返した場合の空白文字列をブランクにしたい

下記を試してみてください。

>シートＡの内容コピーして、シートＢに貼り付け際に（値のみ）

試しに書いてみました。

Range.ClearContentsあたりでしょうか。

確かに、空白文字列で返されるのはもどかしいときがありますね。

この回答への補足

関数のＩＦ関数を使ってあるセルを空白("")にしてもそのセルには関数が入力されている限り空白にすることはできませんね。

この回答への補足

何も入っていないＡ１セルで

この回答への補足

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

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

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

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