Excel VBA質問箱 IV

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

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


5348 / 76732 ←次へ | 前へ→

【76997】Re:【VBA】不特定数データを検索したシートに足し込み
発言  β  - 15/4/28(火) 7:21 -

引用なし
パスワード
   ▼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
289 hits

【76983】【VBA】不特定数データを検索したシートに足し込み Haruka 15/4/24(金) 11:10 質問[未読]
【76984】Re:【VBA】不特定数データを検索したシート... 独覚 15/4/24(金) 11:20 発言[未読]
【76985】Re:【VBA】不特定数データを検索したシート... Haruka 15/4/24(金) 11:27 回答[未読]
【76986】Re:【VBA】不特定数データを検索したシート... β 15/4/24(金) 11:48 発言[未読]
【76987】Re:【VBA】不特定数データを検索したシート... β 15/4/24(金) 14:07 発言[未読]
【76988】Re:【VBA】不特定数データを検索したシート... Haruka 15/4/24(金) 16:23 発言[未読]
【76990】Re:【VBA】不特定数データを検索したシート... β 15/4/24(金) 18:00 発言[未読]
【76991】Re:【VBA】不特定数データを検索したシート... β 15/4/24(金) 19:32 発言[未読]
【76992】Re:【VBA】不特定数データを検索したシート... β 15/4/25(土) 6:23 発言[未読]
【76993】Re:【VBA】不特定数データを検索したシート... Haruka 15/4/27(月) 9:23 発言[未読]
【76994】Re:【VBA】不特定数データを検索したシート... β 15/4/27(月) 9:43 発言[未読]
【76995】Re:【VBA】不特定数データを検索したシート... Haruka 15/4/27(月) 15:04 質問[未読]
【76996】Re:【VBA】不特定数データを検索したシート... β 15/4/27(月) 15:52 発言[未読]
【76997】Re:【VBA】不特定数データを検索したシート... β 15/4/28(火) 7:21 発言[未読]
【76998】Re:【VBA】不特定数データを検索したシート... Haruka 15/4/28(火) 10:26 お礼[未読]

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