在Excel中比较三列并删除整行的方法可以使用VBA代码来实现。下面是一个示例代码：

Sub CompareAndDeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = lastRow To 2 Step -1 ' 从最后一行向上循环，注意要从第二行开始
        
        ' 比较三列的值
        If ws.Cells(i, 1).Value = ws.Cells(i, 2).Value And ws.Cells(i, 1).Value = ws.Cells(i, 3).Value Then
        
            ' 删除整行
            ws.Rows(i).Delete
            
        End If
        
    Next i
    
End Sub

在上述代码中，我们假设要操作的工作表名为"Sheet1"。首先，我们获取最后一行的行号，然后从最后一行向上循环遍历每一行。在循环中，我们通过比较三列的值判断是否需要删除整行。如果三列的值相等，则删除当前行。最后，使用ws.Rows(i).Delete删除整行。

请注意，这个示例代码仅仅是一个基本的示例，你可以根据实际需求进行修改和扩展。