excel - 如何在列中获取重复项并使用其他特定列复制到另一张表中

Question

例如：

我想在 B 列中获取重复项及其在 D 列中的值，然后仅将其粘贴到另一张表中。

我正在使用以下代码：

              Sub FindPIDDuplicates()
              
              Dim wstSource As Worksheet, _
                  wstOutput As Worksheet
              Dim rngMyData As Range, _
                  helperRng As Range
              
              Set wstSource = Worksheets("Sheet1")
              'ThisWorkbook.Sheets.Add.Name = "Sheet2"
              Set wstOutput = Worksheets("Sheet2")
              
              Set src = ThisWorkbook.Worksheets("Sheet1")
              Set trg = ThisWorkbook.Worksheets("Sheet2")
               src.Range("1:1").Copy Destination:=trg.Range("A1")
              
              Application.ScreenUpdating = False
              
              With wstSource
                  Set rngMyData = .Range("A1:H" & .Range("H" & .Rows.Count).End(xlUp).Row)
              End With
              Set helperRng = rngMyData.Offset(, rngMyData.Columns.Count + 1).Resize(, 1)
              
              With helperRng
                  .FormulaR1C1 = "=if(countif(C1,RC1)>1,"""",1)"
                  .Value = .Value
                  .SpecialCells(xlCellTypeBlanks).EntireRow.Copy Destination:=wstOutput.Cells(2, 1)
                  .ClearContents
              End With
              
              Application.ScreenUpdating = True
              
              End Sub

请指导我实现这一目标。提前致谢

标签： excelvba