2014-09-26 74 views

回答

0

你會發現這裏有一個簡單的VBA代碼。

功能DoublesDel() 昏暗mail_tmp作爲字符串

DernLigneA = Range("A65536").End(xlUp).Row 
DernLigneB = Range("A65536").End(xlUp).Row 
For i = 1 To DernLigneA 
    mail_tmp = LCase(Trim(Sheets(1).Cells(i, 1))) 
    For j = 1 To DernLigneB 
     If StrComp(LCase(Trim(Sheets(1).Cells(j, 2))), mail_tmp, vbTextCompare) = 0 Then 
      'if same text founded, raz 
      Sheets(1).Cells(j, 2) = "" 
     End If 
    Next j 
Next i 

端功能

我認爲這是這是你需要什麼?

Derf

0

您使用的是什麼版本的Excel?

如果您使用的是Excel 2007及更高版本,則可以使用「刪除重複項」功能。如果你走這條路線,我強烈建議複製你的工作表,如果刪除重複數據不能正常工作。

+0

2010;但刪除重複不會做我所需要的。我不知道它到底做了什麼,但不管刪除哪一列,它都不會刪除B列中的重複值。 – user163831 2014-09-26 13:31:59

相關問題