在Excel中，可以使用VBA宏来比较不同工作表中的多个列并删除。以下是一个基本的代码示例：

Sub CompareAndDeleteColumns()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim col1 As Range, col2 As Range
    Dim cell1 As Range, cell2 As Range
    
    ' 修改为你需要比较的两个工作表的名称
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 修改为你需要比较的列的范围
    Set col1 = ws1.Range("A1:A10")
    Set col2 = ws2.Range("B1:B10")
    
    ' 循环比较两列中的每个单元格
    For Each cell1 In col1
        For Each cell2 In col2
            ' 比较两个单元格的值
            If cell1.Value = cell2.Value Then
                ' 如果相等，则删除ws2中对应的单元格
                cell2.Delete xlShiftUp
                Exit For ' 只删除ws2中的一个匹配单元格
            End If
        Next cell2
    Next cell1
End Sub

在以上代码中，我们首先定义了需要比较的两个工作表对象ws1和ws2，以及两个列对象col1和col2。然后，通过嵌套的循环逐个比较两个列中的单元格，如果找到相同的值，则在ws2中删除对应的单元格。注意，在删除单元格后，我们使用xlShiftUp参数使下方的单元格上移，以填补被删除单元格的空白。

请根据你的实际需求修改代码中的工作表名称和列范围。