|
▼Haruka さん:
ご参考までに空白に見えるところが空白なのかどうかを判定するサンプルです。
新規ブックでお試しください。
Sub 空白確認()
Dim c As Range
Range("A1:A5").NumberFormatLocal = "G/標準"
Range("A1").ClearContents '本当の空白
Range("A2").NumberFormatLocal = "@" '文字列書式
Range("A2").Value = "" '長さ0の文字列
Range("A3").Value = vbTab '制御文字
Range("A4").Value = " " 'スペース
Range("A5").Formula = "=IF(1=1,"""","""")" '式による【空白】に見える値
MsgBox "今から空白チェックをします"
For Each c In Range("A1:A5")
MsgBox c.Address(False, False) & ":" & IIf(IsEmpty(c), "空白です", "空白ではありません")
Next
MsgBox "次に補正を試みます"
For Each c In Range("A1:A5")
c.Value = Replace(Replace(c.Value, " ", ""), " ", "")
c.Value = WorksheetFunction.Clean(c)
c.NumberFormatLocal = "G/標準"
c.Value = c.Value
Next
For Each c In Range("A1:A5")
MsgBox c.Address(False, False) & ":" & IIf(IsEmpty(c), "空白です", "空白ではありません")
Next
End Sub
|
|