Блог

Попытка удалить («0.00») из ячейки в столбце P. Строка, которую я выделил, не работает?

 Sub Delete a Cell value

Dim rngToCheck As Range
Dim rng As Range
Set rngToCheck = ActiveSheet.Range("P13:P61")

For Each rng In rngToCheck
*If Cells = ("0.00") Then*
rng.Cells = Delete
End If

Next rng

End If
 

End Sub

Этот код vba работал с моей стороны. Обязательно используйте функцию .clear вместо .delete

Дайте мне знать, если это решит ваш вопрос или если есть что-то еще, с чем я могу помочь. Спасибо!

 Sub ClearCell()
  Dim rng As Range
  Dim i As Integer, counter As Integer

'RANGE TO EVALUATE
  Set rng = Range("P13:P61")

'initialize i to 1
  i = 1

 'Loop for a count of 1 to number of rows
   For counter = 1 To rng.Rows.Count

 'if cell i in the range contains value, delete cell, else increment i
   If rng.Cells(i) = "0" Then
       rng.Cells(i).Clear
   Else
       i = i   1
  End If
  Next
End Sub
 

Вы перепутали rng объект, когда внезапно изменили ссылку на Cells . Также End If слишком много. Проверьте фактическое значение вместо форматированного отображения. Присвоить Value значение пусто ("") , чтобы очистить содержимое.

 Sub DeleteACellValue()

    Dim rngToCheck As Range
    Dim cell As Range

    Set rngToCheck = ActiveSheet.Range("B7:B9")
    For Each cell In rngToCheck
        If cell.Text = "0.00" Then
            cell.Text = ""
        End If
    Next cell

'End If
End Sub