Удалить строки с макросом в Excel

Я хочу удалить строки, содержащие данные из столбцов 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

Filas que quiero eliminar

1
задан 27.11.2019, 20:42
2 ответа

Попытайся 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
0
ответ дан 01.12.2019, 10:45
  • 1
    Пытайся объяснять всегда из-за qué có я говорю, что ты предлагаешь, реши вопрос и có mo deberí чтобы быть использованным. – Alfabravo 28.11.2019, 21:40

Благодаря комментарию @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
1
ответ дан 01.12.2019, 10:45
  • 1
    Ты не нуждаешься в том, чтобы сделать цикл для этого. Несмотря на то, что помещает Range("A2:B" & UltimaFila).ClearContents borrarí an все, кто справедливое то, что está s делая сейчас, но 1 в 1. – Elier Sánchez E-Infantes 28.11.2019, 21:20

Теги

Похожие вопросы