Excel Цикл по таблице и удаление определенной ячейки

Question

Я пытаюсь перебрать таблицу в Excel.Таблица варьируется от (A1: C50).Столбец A - Серийный номер, Столбец B - доход, Столбец C - Всего.

У меня есть ячейка D10, которая является случайным серийным номером.Я хочу просмотреть таблицу и проверить, соответствует ли серийный номер в таблице моему серийному номеру в D10, и удалить соответствующую ячейку дохода для этой строки.Возможно ли это с помощью VBA.

Заранее большое спасибо.

Answer 1

Sub DeleteIncome()
    Dim serialNumbers as Range, cl as Range, randomSerialNumber as Range
    Set serialNumbers = Range("A1:A50")
    Set randomSerialNumber = Range("D10")

    For each cl in serialNumbers
        If cl.value = randomSerialNumber.value Then
           cl.offset(0,1) = ""
        End if
    Next cl
End Sub

Answer 2

For x = 1 To 50
  If Cells(x, 1).Value = Cells(10, 4).Value Then
    Cells(x, 2).Value = ""
  End If
Next x