Código de Excel VBA para seleccionar celdas no vacías

Solución:

sus datos siempre comienzan en B2, C2 y no tienen una celda vacía entre ellos? Si es así, puede establecer una variable para que sea la “última fila completada”

lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("B2:C" & lastRow).Select

y defina el rango de B2 a C “última fila”

Usa un bucle:

Sub qwerty()
    Dim rng As Range, r As Range, rSel As Range

    Set rng = Range("B2:C7")
    Set rSel = Nothing

    For Each r In rng
        If r.Value <> "" Then
            If rSel Is Nothing Then
                Set rSel = r
            Else
                Set rSel = Union(rSel, r)
            End If
        End If
    Next r
    If Not rSel Is Nothing Then rSel.Select
End Sub

Si desea expandir el área que se está probando, use:

Range("B2:C7").CurrentRegion

---

---

Utiliza Nuestro Buscador