Los valores deben copiarse de Col A a Col B en Excel sin pérdida de datos

En mi Excel, tengo 2 columnas. Por ejemplo: Col A y Col B. En Col AI tengo 100 registros pero en Col B tengo solo 50 registros que están dispersos no en secuencia. Tengo que copiar y pegar la misma información por faltar en la columna B de la columna A. Cuando coloco buscar e intento copiar y pegar los valores, no está haciendo frente a los datos correctamente. ¿Alguien puede decirme cómo puedo hacer esto?

microsoft-excel microsoft-excel-2010 microsoft-excel-2007

— Anand
fuente

¿Estás usando fórmulas de hoja de cálculo o VBA? ¿Desea completar la información que falta en la Columna B, o está creando una nueva Columna (por ejemplo, Columna C) que contiene (Columna B) o (Columna A si falta la Columna B)?

— OldUgly

No hay una nueva columna, necesito copiar en la Col B la información que falta

— Anand

La fórmula de hoja de cálculo y las funciones definidas por el usuario (UDF) no pueden cambiar el contenido de otras celdas o propiedades de la hoja de trabajo. Necesitará usar VBA para realizar esta tarea.

— OldUgly

¿Tenemos alguna fórmula para hacer esto? Avísame

— Anand

¿Puede proporcionar un ejemplo de los datos existentes y un ejemplo de cómo desea el resultado final?

— Burgi

A continuación se muestra una solución con VBA. Aquí está el código utilizado ...

Sub FillInMissing()
Dim mySht As Worksheet
Dim lstRow As Long, lstCol As Long
Dim iLoop As Long

    Set mySht = Worksheets("Sheet6")
    lstRow = mySht.Range("A" & mySht.Rows.Count).End(xlUp).Row
    lstCol = mySht.Cells(1, mySht.Columns.Count).End(xlToLeft).Column


    For iLoop = 1 To lstRow
        If Len(mySht.Cells(iLoop, 2).Value) = 0 Then
            mySht.Cells(iLoop, 2).Value = mySht.Cells(iLoop, 1).Value
        End If
    Next iLoop

End Sub

Comenzando con datos que se parecen a esto ...

Después de que se ejecuta el código, se ve así ...

— Viejo feo
fuente