空白セルと０値を識別させたい。（VBA）

質問

すみません、誰か教えていただけますか。
シートの53、54、55行目にそれぞれ値入っています。
それを３行目にビジュアル的に表現させています。
55行目はセルの色で、53行目は数値があり同じ値が
続く部分の合計を出しています。
しかし、下記の記述ですと数値が0（変数D=0）の時に
うまくいきません。空白セルと認識されてしまうと思います。
何か、良い方法があれば教えて頂けませんでしょうか。
宜しくお願いします。

Sub 表示()

Dim a As Long
Dim c As Long
Dim D As Long
Dim e As String
Dim f As String

c = 3
For a = 3 To 64

With Worksheets("Sheet1")

If .Cells(53, a) <> .Cells(53, a + 1) Then

.Range(.Cells(53, c), .Cells(53, a)).Select
D = WorksheetFunction.Sum(Selection)
e = D
f = Selection(1).Offset(1, 0).Value
G = Selection(1).Offset(2, 0).Value
If D <> 0 Then
Selection(1).Offset(-50, 0).Value = f + "//" + e
.Range(.Cells(53, c), .Cells(53, a)).Offset(-50, 0).Select
Selection.Interior.ColorIndex = G
End If

If Selection(1).Value = "" Then
.Range(.Cells(53, c), .Cells(53, a)).Offset(-50, 0).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
End If
c = a + 1

End If
End With
Next
End Sub

回答No.1

bin-chan · ベストアンサー

．Valueの他に．textや．text2といった参照もできます。
（手書き入力のせいか、半角ピリオドになってません）

お礼

bin-chan様

ありがとうございます。