|
▼ichinose さん:
ご返信ありがとうございました。
とりあえず、解決しました。
かなり、ど素人的手法なのですが
※関数式により空白に見えるセルを関数で0に変え、そのセルを空白に変換
という、重ね業で、解決しました。
一応下にVBAを記述しておきます。
Dim rng As Range
Dim n As String
n = 0
For Each rng In Range("A3:E3")
If rng = 0 Then
rng.ClearContents
End If
Next rng
'空白セルを詰める
Dim rg As Range
Set rg = Range("A3:E3")
Set rg = rg.SpecialCells(Type:=xlCellTypeConstants)
rg.Copy
Range("A4").PasteSpecial
この結果、
1行目A1:E1(1,2,3,0,4)←数式により得た値
2行目A2:E2(1,2,3,"",4)←IF($A1="","",$A1)
3行目A3:E3(1,2,3,0,4)←IF($A1="",0,$A1)
VBAにより、3行目を、正式に空白セルとし
3行目A3:E3(1,2,3,"",4)←VBAにて取得した値
4行目A4:E4(1,2,3,4,"")←VBAにてコピーした値
と、なりました。
1行目・2行目は、変更したら業務に支障が生じる為
このような手法を考えてみました。
ICHINOSEさんの、ご指摘手法も
コピーして今度じっくりもう一度試してみます。
おそらく、そちらの方法が簡潔ですものね^^
仕事の関係で、まだ先に進まないといけないので・・・・。
ありがとうございました。
又何かありましたら、質問投稿させていただきたいと思いますので
その際はよろしくお願いいたします。
|
|