Rellenar celdas vacías en rangos múltiples

Haciendo doble clic en el marcador (punto inferior derecho de la celda seleccionada) se logra rellenar el rango vacío hasta encontrar otro dato, que sería el segundo departamento. Y así hasta completar todos los rangos.

A raíz de que aquí en el foro no se pueden subir imágenes, dejo la respuesta en esta entrada a mi Blog:

https://elsamatilde.blogspot.com/2024/09/r1-rellenar-celdas-vacias-en-rangos.html 

I. PD, disculpe, le dejo la información que vi en forma de enlaces con consultas ya tratadas. Ánimo.

Revisa el siguiente:

https://youtube.com/shorts/0T4PDatE7EE 

Otras recomendaciones:

https://youtu.be/PLNGRD6jfgk 

Puedes usar este código:

Sub RellenarDepartamentos()
    Dim i As Long
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
    For i = 5 To LastRow 
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).Value = Cells(i - 1, 1).Value 
        End If
    Next i
End Su

Este código revisa cada fila en la columna A desde la fila 5 hasta la última fila con datos. Si encuentra una celda vacía, copia el valor del departamento de la celda superior.

Para rellenar las celdas vacías en la columna "A" con el nombre del departamento correspondiente en cada grupo de empleados, puedes usar VBA para automatizar esta tarea. Aquí te dejo un código que lo hará por ti:

Código VBA para rellenar celdas vacías en la columna A:

Sub RellenarDepartamentos()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim deptoActual As String

' Establece la hoja donde se encuentran los datos
Set ws = ThisWorkbook.Sheets("Hoja1") ' Cambia "Hoja1" por el nombre de tu hoja si es necesario

' Encuentra la última fila con datos en la columna A
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' Recorre las filas desde la fila 5 hasta la última fila con datos
For i = 5 To lastRow
' Si la celda en la columna A no está vacía, guarda el valor (nombre del departamento)
If ws.Cells(i, 1).Value <> "" Then
deptoActual = ws.Cells(i, 1).Value
Else
' Si la celda en la columna A está vacía, rellénala con el valor del departamento actual
ws.Cells(i, 1).Value = deptoActual
End If
Next i

MsgBox "Celdas vacías rellenadas correctamente.", vbInformation
End Sub

Instrucciones para usar el código VBA:

1. Abrir el Editor de VBA: Presiona Alt + F11 en Excel para abrir el Editor de VBA.

2. Insertar un nuevo módulo: En el Editor de VBA, ve a Insertar > Módulo.

3. Pegar el código: Copia el código proporcionado arriba y pégalo en el módulo.

4. Ejecutar la macro: Cierra el Editor de VBA y en Excel presiona Alt + F8. Selecciona RellenarDepartamentos y haz clic en Ejecutar.

Explicación del código:

Ws.Cells(i, 1).Value <> "": Verifica si la celda en la columna A (departamento) tiene un valor. Si la tiene, guarda ese valor en la variable deptoActual.

Else: Si la celda está vacía, asigna el valor de deptoActual (que contiene el nombre del último departamento encontrado) a esa celda vacía.

For i = 5 To lastRow: Comienza en la fila 5 (donde comienzan tus datos) y recorre todas las filas hasta la última fila con datos.

Este código funcionará de manera eficiente para rellenar todas las celdas vacías en la columna "A" con el nombre del departamento correspondiente.