Question

我有以下数据表，

   COLA        COLB
    ABC          10

    ABC          15
    XYZ          10
    XYZ          15

我想比较两个列，如果它们是重复的，我想删除单元格空白，我不想转移。例如，像这样，

<div  class="modal-body" id="pdfPrakrutiId"  style="height:480px;overflow: auto;">
                     <div ng-include="'../prakrutiVP.html'"></div>
                </div>
                <div class="modal-footer" style="margin-bottom:5px;margin-right:10px;">
                    <button type="button" class="btn btn-default" ng-click="closeSecond()">{{'prakruti.common.close' | translate}}</button>
                  <button type="button" id="btn" class="btn btn-default" ng-click="exportToPdf()">Export to pdf</button>
                </div>

我怎样才能在Excel中执行此操作？

干杯!!

Answer 1

没有vba方法

步骤1使用公式识别要删除的行。

将此公式放在C2并填写。

=IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=1,1,"REMOVE")

步骤2过滤＆＃34;删除＆＃34;仅

步骤3选择整行，然后按DEL按钮，然后删除过滤器。

Answer 2

试试这个。

Option Explicit
Dim i, j, count, lastrow As Integer
Dim number As Long

Sub delete_duplicates()
    lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    For i = 1 To lastrow
        number = Cells(i, 2)
        For j = 1 To lastrow
            If number = Cells(j, 2) Then
                count = count + 1
                If count > 1 Then
                    Cells(j, 2) = ""
                End If
            End If
        Next j
    count = 0
    Next i
End Sub

比较2列并删除重复项而不移动

2 个答案: