值需要在Excel中从Col A复制到Col B而不会丢失数据

在我的Excel中，我有两列For Ex：Col A＆amp; Col B. 在Col A中，我有100个记录但在Col B中只有50个记录不按顺序分散。我必须从Col A复制并粘贴Col B中缺少的相同信息。当我查找并尝试复制并粘贴值时，它不能正确处理数据。谁能告诉我怎么做到这一点？

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

— Anand
source

您使用的是电子表格公式还是VBA？是否要填写B列中缺少的信息，或者是否要创建包含（B列）的新列（例如ColumnC）或（如果缺少B列则为A列）？

— OldUgly

没有新专栏，我需要在Col B中复制哪些信息丢失

— Anand

电子表格公式和用户定义函数（UDF）无法更改其他单元格或工作表属性的内容。您将需要使用VBA来完成此任务。

— OldUgly

我们有任何公式可以做到这一点。让我知道

— Anand

您能提供现有数据的示例以及您希望最终结果的示例吗？

— Burgi

以下是使用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

从看起来像这样的数据开始......

代码运行后，它看起来像这样......

— OldUgly
source