Excel 空白セルのコピペについて

質問

http://imgur.com/5e8TsP1

上記図のように、シート１のB列に各文字を入力しています。
そして、A列にはもしB列に文字が入力されていたらID代わりの数値を表示する、という式を入力してあります。
次に、シート１のA列、B列をコピーして、シート２に数値としてペーストをします。
すると、A列は空白のはずが、xldown操作をすると元のセルで式が入力されていたものまで選んでしまい、真の空白セルとして認識してくれません。

そこで、このような例の場合、どうコピーペースト、または選択をすれば偽物の空白
セルを生み出さないように出来るでしょうか？
実際に使用するデータは項目名が多く存在し、マクロですべてのセルを選択→新規ブックを作成してそこにペースト、という処理を行っています。
この時に偽物の空白セルが出ると、データベースに読みこむ際に不都合が生じますので、何とか改善を図りたいです。

VBA、関数、Excel上のテクニックのいずれでも構いませんので、どうかご教授下さい。
よろしくお願いいたします。

回答No.1

chie65536（@chie65535） · ベストアンサー

以下のマクロは「見た目が空白の、ブランクじゃないセル」をクリアして、ブランクのセルにします。

Sub Macro1()
Dim Target As Range
For Each Target In ActiveSheet.UsedRange
If Not IsNull(Target) And Target.Formula = "" Then
Target.ClearContents
End If
Next
End Sub

なお「半角スペースや、全角スペースなど、見えない文字が入っている場合」はブランクにしません。

お礼

ありがとうございました。
uesdrangeをどう使うか迷っていたのですが、ご回答いただいたやり方で問題なく出来ました。
また是非、よろしくお願いいたします。

回答No.3

emaxemax

こんな方法もあります。
仮にA1:B10の範囲なら
Sub test01()
Dim myW
myW = Sheets("Sheet1").Range("A1:B10").Value
Sheets("Sheet2").Range("A1:B10").Value = myW
End Sub

回答No.2

ushi2015

こんにちは
Sub test()
　　Worksheets("Sheet1").Range("B:B").SpecialCells(xlCellTypeConstants) _
　　　　.Offset(, -1).Resize(, 2).Copy
　　Worksheets("Sheet2").Range("A1").PasteSpecial xlValues
End Sub
とか
Sub test1()
　　Dim r As Range
　　With Worksheets("Sheet1")
　　　　Set r = .Range("B" & Rows.Count).End(xlUp)
　　　　.Range("B1", r).Offset(, -1).Resize(, 2).Copy
　　End With
　　Worksheets("Sheet2").Range("A1").PasteSpecial xlValues
End Sub
ではどうですか？