Excel VBA - используйте if и для очистки (не удаления) ячейки B1, которая не соответствует критериям в ячейке A1. То же самое для 24 строк ниже

Question

В столбце А 24 заголовка. В столбце B есть аналогичные данные, но я хочу создать «Private Sub CommandButton3_Click ()», чтобы очистить содержимое ячейки столбца B1, в которой текст не равен ячейке A1. То же самое должно быть сделано для всех 24 строк таблицы. Можете ли вы помочь с потоком кода?

введите описание изображения здесь

Answer 1

Вы можете использовать для каждого l oop, чтобы сделать работу.

Private Sub CommandButton3_Click()

Dim range As range

Set range = Worksheets("Sheet1").range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)

For Each cell In range
    If cell.Value = cell.Offset(0, -1) Then
        cell.ClearContents
    End If
Next cell

End Sub