選擇列和複製重複它們之間

Question

兩個不相鄰的列，列A和C，包含字符串和列E（再次不相鄰的）應該包含列A和C之間的重複的字符串

現在我的主要問題是，列A和C是不同的長度，重複不是在同一行上。

當不使用VBA時，以下輸入列E給出了除空白之外的解決方案。

=IF(ISERROR(MATCH(A1,$C:$C,0)),"",A1) 

例如：
列A
珀泰
番茄（Tomatoes）
花椰菜
胡椒
蘑菇

列C
蘑菇
黃瓜
西蘭花
鹽
茴香

E欄應該是
蘑菇
西蘭花

這是我已經能夠到目前爲止找到，但它是非常錯誤的。我發現自己無法解決問題。

Sub Duplicates() 
    Dim duplicates As Range 
    Set duplicates = Columns("A", "C") 
    activesheet.duplicates.Copy Destination:=activesheet.Range("E1") 
End Sub 

Answer 1

...試試這個：

Sub PopulateColE() 

    Dim cl As Range 
    Dim CurrentRow As Integer: CurrentRow = 1 

    On Error Resume Next 

    For Each cl In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("C:C")) 
     Application.WorksheetFunction.Match cl.Value, Range("A:A"), 0 

     If Err.Number = 0 Then 
      Range("E" & CurrentRow).Value = cl.Value 
      CurrentRow = CurrentRow + 1 
     End If 

     Err.Clear 
    Next cl 
    End Sub