為什么我不斷收到運行時錯誤不匹配 13？

Question

Sub Test1()
Application.ScreenUpdating = False
Dim i As Long

For i = 1 To Sheets.Count
    If Sheets(i).Cells(4, 8).Value = "0" Then Sheets(i).Cells(4, 8).Value = ".0001"
    If Sheets(i).Cells(3, 17).Value = "" Then Sheets(i).Cells(3, 17).Value = "x"
Next
Application.ScreenUpdating = True
End Sub

我編寫了這段代碼來查看所有選項卡，以及是否存在這些值來替換它們。 我有兩個不同的 excel 文件。 它在工作表上沒有問題，但在另一個上運行時錯誤不匹配 13。 有什么我做錯了嗎？

Answer 1

最有可能的是，您需要數值，而不是文本：

If Sheets(i).Cells(4, 8).Value = 0 Then Sheets(i).Cells(4, 8).Value = 0.0001