在我的 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
从如下数据开始...
代码运行后如下所示...