Excel VBA：复制并粘贴其他单元格的重复值

Question

我有一个两列的excel文件。下面 Excel的截图：

我要的是一个Excel VBA将读取所有重复的值，如果它旁边的单元格为空，从其他重复户口价值将在空白单元格粘贴。 预期结果：

我不擅长与Excel VBA，所以我会很感激你的帮助。

谢谢！

Answer 1

的一个出发点是遍历每个值和列比较它的每个值：

Sub FillDuplicates() 
Dim lastrow As Long 

lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A 

For x = 1 To lastrow 
    If Cells(x, 2).Value <> "" Then 'Check if cell in column B is empty 
     For y = 1 To lastrow 
      If Cells(y, 1).Value = Cells(x, 1).Value Then 'Compares cell against each value in column A 
       Cells(y, 2).Value = Cells(x, 2).Value 'If matches, add value in column B 
      End If 
     Next y 
    End If 
Next x 

End Sub 

Answer 2

你可以试试这个

Sub Main() 
    With Columns(1).SpecialCells(xlCellTypeConstants, XlTextValues).Offset(,1).SpecialCells(xlCellTypeBlanks) 
     .FormulaR1C1 = "=R[-1]C" 
     .Value = .Value 
    End With 
End Sub 

凡

• 的1st SpecialCells选择带有文本值的A列单元格

• 偏移选择在下一列到右边（即B列）

• 的第二SpecialCells在该后一范围