空白セルと０値を識別させたい。（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
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
お早い回答どうもありがとうございます！ 本当に困ってたところだったので、大変助かりました！