Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
空白に0を入力
投稿日時: 20/04/02 01:31:05
投稿者: Manabukunn

この度はお世話になります。
非常に基本的なことだと思われますが
空白のセルに数字の”0”を入力したいと思っております。
 
Sub Sample2()
    Dim i As Long
    For i = 2 To 10
        If Cells(i, 10) = "" Then
            Cells(i, 10) = Replace(Cells(i, 10), "", "0")
        End If
    Next i
End Sub
 
な感じで作っているのですが Cells(i, 10) = ""だと
空白だと認識してくれないようです。
解決法をお願いいたします。

回答
投稿日時: 20/04/02 09:50:39
投稿者: bi

置換する必要はないと思います。
 

Sub Sample2()
    Dim i As Long
    For i = 2 To 10
        If Cells(i, 10).Value = "" Then Cells(i, 10).Value = 0
    Next i
End Sub

投稿日時: 20/04/02 10:21:21
投稿者: Manabukunn

有難うございました。
確かにご指摘された通りですよね。
助かりました。
今後ともよろしくお願いいたします。