Os valores precisam ser copiados do Col A para o Col B no Excel sem perda de dados

Question

No meu Excel, eu tenho 2 colunas para o Ex: Col A & Colo B. No Col A eu tenho 100 registros, mas no Col B com apenas 50 registros que estão espalhados não em seqüência. Eu tenho que copiar e colar a mesma informação por falta no Col B do Col A. Quando eu pesquisei e tentei copiar e colar os valores, ele não está lidando com os dados corretamente. Alguém por favor pode me dizer como posso fazer isso?

    

Answer 1

Abaixo está uma solução usando o VBA. Aqui está o código usado ...

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

Começando com dados que se parecem com isso ...

Depoisqueocódigoéexecutado,parececomisso...