Значения необходимо скопировать из столбца A в столбец B в Excel без потери данных

Question

В моем Excel у меня есть 2 столбца Например: Col A и Col B. В Col AI есть 100 записей, но в Col B только 50 записей, которые разбросаны не по порядку. Я должен скопировать и вставить ту же информацию, что и отсутствующую в столбце B, из столбца A. Когда я поднял глаза и попытался скопировать и вставить значения, он неправильно копирует данные. Может кто-нибудь, пожалуйста, дайте мне знать, как я могу это сделать?

Answer 1

Ниже приведено решение с использованием VBA. Вот код, используемый ...

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

Начиная с данных, которые выглядят так ...

После запуска кода это выглядит так ...