usar - funciones de excel

Pasa a través de mis filas y elimina la fila si 2 celdas contienen algún valor

Question

IMAGEN

Me gustaría hacer esto como un ciclo for que itere y compare A1 con B1 si ambos contienen un valor detele otrow skip y salte a la siguiente fila y compare A2 con B2, A3 con B3 y así hasta aproximadamente 100.

Puedes ver en mi IMAGEN de ejemplo, como A4 contiene un valor pero B4 no lo omite, A5 y B5 lo mismo, pero A6 y B6 Ambos contienen un valor por lo que me gustaría eliminar la fila y continuar :)

Sub Empty_cell()

    Dim score1 As Integer, score2 As Integer, result As String, col As Integer, RangeStr1 As String, RangeStr2 As String

    col = 4
    Let RangeStr1 = "A" & col & ""
    Let RangeStr2 = "B" & col & ""

    score1 = Range(RangeStr1).Value
    score2 = Range(RangeStr2).Value

    If score1 >= 0 & score2 >= 0 Then

        Range(RangeStr1 & ":" & RangeStr2).Delete
        MsgBox "Deleted"
    Else
        MsgBox "Failed"
        col = col + 1 ''

        MsgBox col
    End If
End Sub

Answer 1

Nada en absoluto mal con la solución user3598756 en absoluto. Solo proporcionando algo que es un poco más robusto y quizás más adaptable

Déjame saber lo que piensas:

Option Explicit
Dim n As Long
Dim i As Long
Sub DeleteRows()

n = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

For i = 4 To n
    Select Case Cells(i, 1)
        Case Is <> vbNullString
            Select Case Cells(i, 2)
                Case Is <> vbNullString
                    Cells(i, 1).EntireRow.Delete
            End Select
    End Select
Next i

End Sub

Answer 2

puedes hacerlo con una declaración de un trazador de líneas:

Range("A4", Cells(Rows.count, "A").End(xlUp)).SpecialCells(xlCellTypeConstants, xlNumbers).Offset(, 1).SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete

dónde:

• Range("A4", Cells(Rows.count, "A").End(xlUp))

  hace referencia a todas las celdas de la columna A desde la fila 4 hasta la última, no vacía

• .SpecialCells(xlCellTypeConstants, xlNumbers)

  selecciona todas las celdas de rango referenciadas con un número

• .Offset(, 1).

  los desplazamientos que resultan oscilan una columna a la derecha (es decir, a las celdas correspondientes de la columna B)

• .SpecialCells(xlCellTypeConstants, xlNumbers)

  selecciona estas últimas celdas de rango referenciadas con un número

• .EntireRow.Delete

  finalmente elimina la fila de las celdas resultantes