|
多分これのことじゃないかと思います。
Sub aaa()
Range("A1:A10").Formula = "="""""
Range("A1:A5").Copy
Range("A1").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Range("A6:A10").Value = Range("A6:A10").Value
For Each CL In Range("A1:A10")
If CL.Value = "" Then
If IsEmpty(CL.Value) Then
CL.Offset(, 1).Value = "空白"
Else
CL.Offset(, 1).Value = "空白に見えるけど、実は長さ0の文字"
End If
End If
Next
End Sub
で、こんな風にすると空白になります。
1列づつ選択して、データ → 区切り位置 そのまま完了
でも、同じようになるけど....。
Sub bbbb()
Range("A1:A10").Value = Range("A1:A10").Value
For Each CL In Range("A1:A10")
If CL.Value = "" Then
If IsEmpty(CL.Value) Then
CL.Offset(, 1).Value = "空白"
Else
CL.Offset(, 1).Value = "空白に見えるけど長さ0の文字"
End If
End If
Next
End Sub
|
|