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.