A列包含部分B列关键词,想在C列中显示不重复的关键词!
Private Sub CommandButton1_Click()
n = 2
For i = 2 To 118
For j = 2 To 2639
If Cells(j, 2) <> Cells(i, 2) Then
Cells(n, 3) = Cells(j, 1)
n = n + 1
End If
Next j
Next i
End Sub
这个一个朋友给的代码,首先谢谢,可是我不会用?请高手指点,或者还有别的方法吗?
关键词.rar(39.9 KB, 下载次数: 10)