从表中删除值的最佳方法是复制到列表

Excel(无VBA)中的一个答案是创建具有相同标题的新工作表,然后在表格的每个单元格中输入公式:

=IF(COUNTIF(Standard!$A:$A;Sheet1!A2)>0;"";Sheet1!A2)

在我的示例中,名为“Standard”的工作表包括示例中的标准软件,名为“Sheet1”的工作表是您的第一张工作表。

如果需要VBA解决方案,请执行以下操作:

Sub Extract_Standard()

Dim RowsToProcess As Long
RowsToProcess = ActiveCell.SpecialCells(xlLastCell).Row
Dim LastCol As Long
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

Dim a As Integer
Dim i As Integer

For i = 1 To LastCol
For a = 1 To RowsToProcess
    If Excel.WorksheetFunction.CountIf(Sheets("Standard").Range("$A:$A"), Cells(a, i).Value) > 0 Then
    Cells(a, i).ClearContents

    End If
Next a
Next i

End Sub