需要在 Excel 中将值从 A 列复制到 B 列,且不能丢失数据

需要在 Excel 中将值从 A 列复制到 B 列,且不能丢失数据

在我的 Excel 中,我有 2 列,例如:列 A 和列 B。列 A 中有 100 条记录,但列 B 只有 50 条记录,而且这些记录不是按顺序排列的。我必须从列 A 复制并粘贴列 B 中缺失的相同信息。当我查找并尝试复制和粘贴值时,它无法正确复制数据。有人可以告诉我该怎么做吗?

答案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

从如下数据开始...

在此处输入图片描述

代码运行后如下所示...

在此处输入图片描述

相关内容