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在該後一範圍