Я хочу удалить строки, содержащие данные из столбцов A и B, для этого я разрабатываю макрос, запускаю и не отмечаю ошибок, но не удаляю ячейки
Что я могу делать неправильно?
Sub Limpiar()
Dim Celda As Range, UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Celda In Range("A2:B" & UltimaFila)
If (Celda.Value = "") Then Celda.ClearContents
Next Celda
End Sub
Попытайся asГ-:
Sub Limpiar()
Dim UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Sheet2").Range("A2:B" & UltimaFila).ClearContents
End Sub
Благодаря комментарию @Elier Санчес, эта линия была той, которая у него была плохо If (Celda.Value = "")
Функционирует код таким образом
Sub Limpiar()
Dim Celda As Range, UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Celda In Range("A2:B" & UltimaFila)
Celda.ClearContents
Next Celda
End Sub
Range("A2:B" & UltimaFila).ClearContents
borrarí an все, кто справедливое то, что está s делая сейчас, но 1 в 1.
– Elier Sánchez E-Infantes
28.11.2019, 21:20