Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31303 / 76732 ←次へ | 前へ→

【50681】Re:見た目の空白セルを完全にクリアしたい
発言  Jaka  - 07/8/9(木) 9:52 -

引用なし
パスワード
   多分これのことじゃないかと思います。

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
0 hits

【50677】見た目の空白セルを完全にクリアしたい 07/8/8(水) 23:40 質問
【50679】Re:見た目の空白セルを完全にクリアしたい Misa 07/8/9(木) 8:04 発言
【50682】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 11:29 発言
【50681】Re:見た目の空白セルを完全にクリアしたい Jaka 07/8/9(木) 9:52 発言
【50683】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 12:50 発言
【50684】Re:見た目の空白セルを完全にクリアしたい Jaka 07/8/9(木) 13:50 発言
【50686】ひとりごと Jaka 07/8/9(木) 14:32 発言
【50688】Re:ひとりごと 07/8/9(木) 15:54 お礼
【50685】Re:見た目の空白セルを完全にクリアしたい Ned 07/8/9(木) 14:01 発言
【50687】Re:見た目の空白セルを完全にクリアしたい 07/8/9(木) 15:44 お礼

31303 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free